





RSO PRÁTICO 


3 - 




















CSS caes CEE eis SS GRE DRE a CER e “+ ; 
E SEE ATE Piso SEM CEEE E e , e , pr q 
Es CS APPO SUDO GUEDES SETE ; * “ .: 
am a eo e = ——— 0 o o e ii , s 
coesa mm imo no ocean o q o o o ii , 
o ——o—" mm EE ED caio o o a ii + 
e — — do « e -— O o o o io = = 
mem =. —— -— ua ——— ae - [=] : 
qu << E Ta pm e amp. E =" =>ãõ5 
= = A ET em a e AE E E E 
ee = ai ras = cegre ass =. Es - 
menos al Tt oia e. en do Sa ad - 
o — a ss aii o as o o a a - a 
pin o ——=— qe o = => = us E 
oO = cam Sa atas = E a E = 
Er — RR Ea e a E 
qro E (PRE — emas bee et ea E 
o = 3 3 5 
= a 
Vol. 5 Nº 71 = 


Maua | 
am 


MM 
TR 


| 





4 

+ 

) 
NT 


AM 


qm 
AR mi 
N 


me 


NESTE NÚMERO 


Mm 
un 
WMA 


] 
! 


— 


TATI 
A! Ro 


a 
un 
poi 
= 
- 
+ 
= 
e 
= 
ed 
E ss 
pod 
E 
e 
sed 
pá 
Ed 
É 
= 
e 
= 
ad 
e 
a 
a 
a cul 
4 
<= 
e 
e 





PROGRAMAÇÁOBASIC : 
MAIS OPERAÇÕES COM CADEIAS 
READ e DATA. Menus e opções. Substituição de sub- 1 


CM seas ces ssa iria AS Sa 1401 





TROCA DE MENSAGENS PLANO DA OBRA 


INPUT é uma obra editada em fascículos semanais, e cada conjunto de 


Ciudad de avisos. Modem. Menus 1404 15 fascículos compõe um volume. A capa para encadernação de cada vo- 
RR A ct mai lume estará à venda oportunamente. 


FÉRIAS, VIAGENS, MUDANÇAS... 
NAO FIQUE COM A COLEÇÃO INCOMPLETA 
Se você está saindo de férias, pretende viajar ou vai se ausentar por algum 
UM EDITOR MUSICAL (2) tempo, avise antecipadamente seu jornaleiro. Ele pode guardar os seus fas- 
cículos enquanto você estiver fora. Se, por qualquer motivo, você perdeu 
1408 alguns números, peça-os também a seu jornaleiro, ou entre em contato 
com nossa Distribuidora: 





Segunda parte do programa............c. 


1. Pessoalmente — Em São Paulo, os endereços são: rua Brigadeiro To- 
bias, 773, Centro; av. Industrial, 117, Santo André. No Rio de Janei- 
ro, av. Mem de Sá, 191/193, Centro. 





2. Por carta — Envie para: 
OS SEGREDOS DO TRS-80 (5) DINAP — Distribuidora Nacional de Publicações 
ê ni à pi Números Atrasados 
Desativação do< BREAK >. Auto-Repetição... 1412 Estrada Velha de Osasco, 132 — Jardim Teresa 


CEP 06040 — Osasco — SP 
3. Por telex — Utilize o nº (011) 33 670 DNAP. 


Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 


“- blicações Lda. — Qta. Pau Varais, Azinhaga de Fetais, 2685, Camarate, 
COMPRESSAO DE TEXTOS (2) Lisboa; Apartado 57; Telex 43 069 JARLIS P. 
Pita <U Atenção: Após seis meses do encerramento da coleção, o atendimento dos 
Frequência de pares. Método chinês............ 1414 pedidos dependerá da disponibilidade do estoque. 


Obs.: Quando pedir livros, mencione sempre o título e/ou autor da obra, 
além do número da edição. 





COLABORE CONOSCO 


ROTINAS EM CÓDIGO DE MÁQUINA (2) Encaminhe seus comentários, críticas, sugestões ou reclamações ao 
; SERVIÇO DE ATENDIMENTO AO LEITOR 
Rotinas nas linhas DATA. PEEK e POKE...... 1419 Caixa Postal 9 442, São Paulo — SP. CEP 01051. 


EDITOR Assistentes de Arte: Dagmar Bastos Sampaio, (CLC) 
RICHARD CIVITA Grace Alonso Arruda, Monica Lenardon Corradi MULA 


Colaboradores À Editora Nova Cultural Ltda. é uma empresa do 


NOVA CULTURAL Consultor Editorial Responsável: Grupo CLC — Comunicações, Lazer e Cultura 


Dr. Renato M. E. Sabbatini : e gp 
Presidente (Diretor do Núcleo de Informática Biomédica da pa org cio Gomez, 


Flávio Barros Pinto Universidade Estadual de Campinas) eo 

Diretoria Execução Editorial: DATAQUEST Assessoria Da A Cena ção 

Carmo Chagas, lara Rodrigues, em Informática Ltda., Campinas, SP 

Pierluigi Bracco, Plácido Nicoletto, Tradução, adaptação, programação e redação: 

Roberto Silveira, Shozi Ikeda, Abílio Pedro Neto, Aluísio J. Dornelas de Barros, 

Sônia Carvalho Marcelo R. Pires Therezo, Marcos Huascar Velasco, 
Raul Neder Porrelli, Ricardo J. P. de Aquino Pereira 
Coordenação Geral: Rejane Felizatti Sabbatini 

REDAÇÃO (9 Marshall Cavendish Limited 1984/85. 

Diretor Editorial: Carmo Chagas COMERCIAL (9 Editora Nova Cultural Ltda., São Paulo, Brasil, 1986. 

Editores Executivos: Diretor Comercial: Roberto Silveira Edição organizada pela Editora Nova Cultural Ltda. 

Antonio José Filho, Berta Sztark Amar Gerente Comercial: Flávio Maculan Av. Brigadeiro Faria Lima, nº 2000 - 3º andar 

Editor Chefe: Paulo de Almeida Gerente de Circulação: Denise Mozol CEP 01452 - São Paulo - SP - Brasil 

Editoras Assistentes: Ana Lúcia B. de Lucena, Gerente de Propaganda e Publicidade: José Carlos Madio (Artigo 15 da Lei 5 988, de 14/12/1973). 

Marisa Soares de Andrade Gerente de Pesquisa e Análise de Mercado: Esta obra foi composta na AM Produções Gráficas Ltda, 

Chefe de Arte: Carlos Luiz Batista Wagner M. P. Nabuco de Araújo é impressa na Divisão Gráfica da Editora Abril S.A. 





| r: É 
| | 





MAIS OPERAÇÕES 





COM 





Apresentamos neste artigo algumas 
funções e rotinas relativamente 
simples, que podem facilitar bastante 
as tarefas que envolvem a manipulação 
de cadeias de caracteres. Conheça-as. 


A maneira mais adequada de armaze- 
nar conjuntos de dados numéricos ou al- 
fanuméricos dentro de um programa em 
BASIC consiste em colocá-los em linhas 
DATA, e lê-los com comandos READ. 

Porém, quando o número de dados 
é pequeno, não compensa introduzi-los 
em linhas DATA e acrescentar ao pro- 
grama comandos destinados a lê-los e 
carregá-los em variáveis indexadas. E 
muito mais conveniente colocar os da- 
dos dentro de uma única variável string, 
de tal forma que possamos recuperá-los 
ou consultá-los por meio de uma sub- 
rotina ou função. 

Esta é também a melhor solução pa- 
ra os usuários de computadores que não 
dispõem dos comandos READ e DA- 
TA, como os micros pessoais ZX-81. 


TRINTA DIAS TEM SETEMBRO... 





O programa que se segue exemplifi- 
ca bem o procedimento sugerido. Ele in- 
forma quantos dias tem um determina- 
do mês do ano: 


20 LET C$="31293130313031313031 
3031º 


40 PRINT "ENTRE O NUMERO DO MES 


45 INPUT M 


50 IF M<l OR M>12 TREN GOTO 40 
60 PRINT CESTE MES TEM *; 


70 PRINT CS((M-1)*2+1 TO (M-1)* 
2+2) ," DIAS.” 
BO GOTO 40 


TITE 
0 C$="312931303130313130313031 


40 INPUT "ENTRE O NUMERO DO MES 


"+M 
50 IF M<l OR M>12 THEN GOTO 40 
60 PRINT "ESTE MES TEM "; 

70 PRINT MIDS(CS, (M-1)*2+1,2); 
“DIAS.” 
BO GOTO 40 


Os números de dias referentes a ca- 
da mês são colocados na cadeia de ca- 
racteres C$. A função da linha 70 extrai 
o número de dias do mês M (especifica- 
do no programa de teste, pela entrada 
da linha 40) usando a expressão: 


posição inicial em M$ = (M- 1)*2+1 
número de dígitos = 2 


Note que, se M= 1, a posição inicial 
em M$ é 1. Esta é uma fórmula geral, 
que pode ser usada para extrair subca- 
deias de comprimento fixo, concatena- 
das em uma única cadeia. 

Nos computadores que têm funções 
programáveis do tipo string, essa fórmu- 
la pode ser colocada dentro de uma fun- 
ção, e usada repetidas vezes, como nes- 
te programa: 


Ml 


10 DEF FNTS(I,L,SS)=MIDS (SS, (I- 

1) *L+1,L) 

20 LET M$=" JANFEVMARABRMAI JUNJU 

LAGOSETOUTNOVDEZ” 

30 LET C$="31293130313031313031 

3031” 

40 INPUT 
":M 

50 IF M<1l OR M>12 THEN GOTO BO 

60 PRINT FNTS(M,3,MS);” = ";FNT 

$(M,2,C58);" DIAS." 


“ENTRE O NUMERO DO MES 


70 GOTO 40 
80 PRINT:PRINT "DATA INVALIDA”: 
GoTo 40 


Para executar o programa no Spec- 
trum, substitua a linha 10: 


10 DEF FNTS(I,L,SS)=SS((I-1)*L+ 
1 TO (I-1)*L+L) 

Na função FNTS, definida na linha 
10, o primeiro argumento é o índice; o 
segundo, o tamanho fixo das subcadeias 
e o terceiro, o nome da cadeia com os 
dados. Note que a mesma função é usa- 
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da com duas cadeias de formatos dife- 
rentes, na linha 60 do programa. 

Em computadores que não aceitam 
funções com mais de um argumento, 
pode-se empregar uma sub-rotina, mais 
longa, mas igualmente útil: 

20 LET M$=" JANFEVMARABRMAI JUNJU 

LAGOSETOUTNOVDEZ” 

30 LET C$="31293130313031313031 
3031" 

40 INPUT 
= :M 

50 IF M<1 OR M>12 THEN GOTO 98 

55 LET I=M 

60 LET L=3 

65 LET XS=MS 

70 GOSUB 100 

75 PRINT S$;” TEM "; 

BO LET X$=CS 

85 GOSUB 100 

90 PRINT S$;" DIAS." 

95 GOTO 40 

98 PRINT:PRINT 

99 GOTO 40 

100 LET SS=MIDS (XS5, (I-1)*L+1,L) 

110 RETURN 


Para rodar o programa nos micros 
Spectrum e ZX-81, substitua a linha 100 
do programa: 





"ENTRE O NUMERO DO MES 


"DATA INVALIDA" 


100 LET SS$=XS((I-1)*L+1 TO (I-1 
)J*L+L) 


MENUS E OPÇÕES 





Outra aplicação bastante interessan- 
te dos conceitos aqui discutidos consis- 
te na programação rápida de menus com 
entradas por extenso. As várias opções, 
colocadas em uma única variável string, 
são depois recuperadas pelo método já 
descrito: 


TITE 


LO LET FL$=" INSEREEDITARAPAGARL 
ISTAR” 
20 PRINT 





"ENTRE UM COMANDO: ";F 
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LS: "4 

30 INPUT OPS 

40 FOR I=1 TO 4 

50 LET D$=MIDS(FLS, (1-1)*6+1,6) 
60 IF D5=0PS THEN GOTO 80 

65 NEXT I 


70 PRINT "CODIGO INVALIDO” 

75 GOTO 20 

BO PRINT "COMANDO ESCOLHIDO => 
“:D8 

90 GOTO 20 


Substitua a seguinte linha do progra- 
ma para micros da linha Sinclair: 


50 LET D$=FLS((1I-1)*6+1 TO (1-1 
)J*x6+6) 


Para os micros que dispõem da ins- 
trução INSTR, que localiza subcadeias, 
e de funções programáveis, podemos fa- 
zer um programa mais compacto: 


TITS 


5 DEF FNC(0S,CS,N)=INT((INSTR(O 
S, LEFTS (CS+STRINGS(N,” "),N))-1 
) /N)+1 

10 0$="CR CH PD DB AT * 

20 PRINT “ENTRE O CODIGO DA TRA 
NSACAO ”; 

30 PRINT "(CODIGOS VALIDOS: 
40 LINE INPUT "CODIGO : ";CS 
50 I=ENC(05S,C3,3) 

60 IF I=0 THEN PRINT 
O INVALIDO”:GOTO 30 
70 PRINT "CODIGO “;I 
Bo GOTO 20 


":0 


"AXa CODIG 


A função FNCS$ retorna o número da 
opção (posição sequencial na cadeia). 
Seus argumentos de entrada são: 


OS$: cadeia que contém as opções; 
CS: subcadeia procurada em OS; 
N: tamanho fixo das subcadeias. 


É necessário colocar espaços em 
branco para separar os comandos arma- 
zenados em OS. Se isso não for feito, 
a função INSTR pode encontrar subca- 
deias superpostas, que não correspon- 
dem às opções possíveis. 


“RECUPERAÇÃO DE PALAVRAS 





A recuperação de palavras, códigos 
ou números de uma lista, efetuada de 
acordo com o método que acabamos de 
explicar, requer que todos eles tenham 
o mesmo comprimento, de modo a per- 
mitir a aplicação de uma fórmula. 

Isso nem sempre é desejável ou pos- 


sivel. Suponhamos que, na programa- 
ção de um jogo de aventura, você peça 
ao jogador que entre a lista dos objetos 
que ele quer levar em uma incursão a um 
castelo mal-assombrado. Nesse caso, os 
comprimentos das palavras contidas na 
cadeia de entrada podem ser bastante di- 
ferentes entre si, O que exigiria a elabo- 
ração de um programa um pouco mais 
“inteligente”. 

Se determinarmos, por exemplo, que 
o caractere de separação entre palavras 
é o espaço em branco, a seguinte rotina 
realizará o trabalho: 


BO REM --—--- SUBROTINA --—-————- 
100 LET AS="" 
110 IF CSS(1)="" THEN RETURN 


120 IF css(1l)<>" ” THEN GOTO 13 
0 

125 LET €CS$=CSS(2 TO) 

127 GOTO 100 

130 LET AS=AS+CSS (1) 

135 LET CS$=CSS(2 TO) 

140 IF CSS(1)="*" OR CS$(1)=" * 


THEN RETURN 
150 GoTo 130 


TITCURIA 





80 REM ----- SUBROTINA ---—-—-—-- 
100 A$="" 

110 IF MIDS(CS$S,1,1)="" THEN RE 
TURN 


420 IF MID$(C5S,1,1)=" ” THEN C 
SS=MIDS (€C83,2) :GOTO 100 

130 AS=AS+MIDS (CSS, 1,1) :CSS=MID 
9 (C53,2) 

140 IF MIDS(CSS,1,1)="" OR MIDS 
(CSS,1,1)=" ” THEN RETURN 

150 GOTO 130 


A cadeia de entrada é CS$. A cada 
chamada da rotina, A$ retorna uma 
subcadeia contida entre dois espaços em 
branco, em CS$; extraindo-a, reduz o 
tamanho de CS$. 

Eis um programa que testa o funcio- 
namento dessa rotina: 


20 PRINT "ENTRE TRES COISAS QUE 
CARREGARA (SEPARADAS POR ESPA 

Cos) :* 

30 INPUT CSS 

40 LET N=0 

50 PRINT"VOCE 
55 GOSUB 100 

60 IF AS="" THEN GOTO BO 
70 LET N=N+1:PRINT N,AS 


CARREGARA: ” 


75 GOTO 60 
BO PRINT "E MAIS NADA...” 
90 STOP 





Para rodar nesses computadores, acres- 
cente a seguinte linha: 


10 CLEAR 1000 

A linha 100 inicializa a cadeia de sai- 
da, A$. A linha 110 começa um laço de 
repetição, testando se a cadeia de entra- 
da, CS$, é vazia — ou seja, se todas as 
palavras nela contidas já foram extrai- 
das. Em caso afirmativo, a sub-rotina 
retorna o controle ao programa que a 
chamou. A linha 120 verifica se o pri- 
meiro dos caracteres que restaram em 
CS$ é um espaço em branco. Se for, ele 
é “podado” de CS$, e o programa re- 
torna para a linha 100, para executar um 
novo teste. Se o primeiro caractere não 
for um espaço em branco, a linha 130 
retira-o de CS$, levando-o para AS. Fi- 
nalmente, se um novo espaço em bran- 
co for encontrado (fim de subcadeia), 
ou se CS$ tiver se esgotado, a linha 140 
retorna o controle ao seu programa 
principal. 





SUBSTITUIÇÃO DE SUBCADEIAS 


Uma das funções mais úteis de um 
programa de processamento de textos é 
a que permite substituir todas as ocor- 
rências de uma determinada palavra, ou 
sequência de caracteres, em um docu- 
mento. Essa função possibilita, entre 
outras coisas, o uso de macros para a 
redação rápida de textos muito repetiti- 
vos. Digamos que você esteja escreven- 
do um artigo sobre processamento de 
imagens, e que essa expressão (''proces- 
samento de imagens”) será citada algu- 
mas dezenas de vezes, por extenso, ao 
longo do texto. Para poupar tempo e es- 
forço, sempre que for preciso digitá-la, 
você poderá colocar um símbolo qual- 
quer em seu lugar — por exemplo, dois 
caracteres que dificilmente aparecerão 
juntos em outras partes do texto: *P, $$ 
etc. Depois, bastará acionar a função de 
busca e substituição, e o programa tro- 
cará o símbolo convencionado pela ex- 
pressão por extenso, sempre que o en- 
contrar. 

Programar essa operação em BASIC 
não chega a ser difícil, mas envolve al- 
gumas complicações, pois a sequência 
que irá substituir o simbolo no texto po- 
de ter um número de caracteres menor, 
igual ou maior. Além disso, a maioria 
dos microcomputadores não aceita va- 
riáveis string, com mais de 255 caracte- 
res. Assim, durante o processo de subs- 
tituição, é necessário fazer com que o 
programa verifique esse número, para 
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não ocorrer nenhum erro. Apresenta- 
mos, a seguir, uma sub-rotina de busca 
e substituição, que você poderá adicio- 
nar a seus programas: 


100 LET N=1 

110 IF LEN AS -LEN BS +LEN CS > 
255 THEN RETURN 

120 FOR I=N TO LEN AS 

130 IF AS(I TO I+LEN B$-1)=B$ T 
HEN GOTO 160 

140 NEXT I 

150 RETURN 

160 LET AS=AS(TO I-1L)+CS+AS (I+L 
EN BS TO) 

170 LET N=I+LEN CS 

180 GOTO 110 


TTICIA 


100 
110 
255 


N=1 

IF LEN(AS)-LEN(BS)+LEN(CS)> 
THEN RETURN 

120 FOR I=N TO LEN(AS) 

130 IF MIDS(AS,I,LEN(B$))=B$S TH 
EN GOTO 160 

140 NEXT I:RETURN 

160 AS=LEFTS (AS, 1-1) +CS+MIDS (AS 
| I+LEN(BS)) 

170 N=I+LEN (CS) 

180 GOTO 110 


Os argumentos de entrada da sub- 
rotina são: 
AS - cadeia que terá substituições; 
B$ - subcadeia em A$ a substituir; 
C$ - subcadeia que substituirá BS. 
Suponhamos que a célebre frase de 
Gertrude Stein: 


UMA ROSA E' UMA ROSA E' UMA 
ROSA 


deverá ser transformada em outra (não 
menos poética): 


UMA PEDRA E' UMA PEDRA E' 
UMA PEDRA 


Neste exemplo, então: 


A$ = UMA ROSA E' UMA ROSA E' 
UMA ROSA 

B$ = ROSA 

C$ = PEDRA 


A rotina funciona da seguinte manei- 
ra: a linha 100 inicializa N em 1. Essa 
variável aponta o caractere de A$ a par- 
tir do qual B$ será procurado. Na linha 
110, checamos se o comprimento total 
da cadeia substituida não excede 255. O 
laço que vai da linha 120 à 140 verifica 
se B$ está presente em A$, a partir do 
caractere N até o fim. Se estiver, a li- 


nha 160 efetua a substituição, concate- 
nando a primeira seção de AS$, até a 
ocorrência de B$, mais C$ e a parte res- 
tante de A$. N é então atualizado e 
ocorre nova busca por B$ (retorno à li- 
nha 110). 


TT 


Nos micros com função INSTR (ins- 
tring), O laço das linhas 120 a 140 pode 
ser substituído por uma só linha: 


120 I=INSTR(I,AS,BS):IF I=0 THE 
N RETURN 


Esta listagem testa a sub-rotina de 
substituição. Ela é auto-explicativa: 


A TITO 
20 PRINT "ENTRE UMA FRASE ”; 
25 INPUT AS 

30 PRINT "PALAVRA PARA SUBSTITU 
IR 

35 INPUT BS 

40 PRINT “POR *; 

45 INPUT CS 

50 GOSUB 100 

60 PRINT AS 

70 GOTO 20 


Para rodar o programa no TRS-80 e 
no TRS-Color, adicione esta linha: 


10 CLEAR 1000 


Se você quiser substituir todas as 
ocorrências de uma subcadeia, em um 
texto composto de várias linhas (arma- 
zenadas em DATA, por exemplo), uti- 
lize o próximo programa. Não se esque- 
ça de colocar uma última linha DATA 
“**** mara assinalar o fim do texto: 


A TITE 


10 INPUT "PALAVRA PARA SUBSTITU 
IR "; 

20 INPUT "POR ”"; 

30 READ AS 

40 IF A$="*" THEN GOTO 70 

50 GOSUB 70:PRINT AS 

60 GOTO 30 

70 STOP 


A INSTRUÇÃO CLEAR | 





A programação de variáveis string 
apresenta algumas diferenças conforme 
o tipo de interpretador BASIC usado. 

Como vimos no artigo anterior des- 
ta série (página 1214), os interpretado- 
res se dividem em dois grandes grupos 


quanto às funções de tratamento de va- 
riáveis literais. No primeiro grupo, cha- 
mado Microsoft (nome da software 
house norte-americana responsável pe- 
lo desenvolvimento do BASIC padrão 
para os micros MSX, TK-2000, Apple 
II, TRS-80 e TRS- Color, entre outros), 
encontramos funções familiares como 
LEFTS, RIGHTS, MIDS, INSTR etc. 

No segundo grupo, denominado Sin- 
clair (destinado às máquinas compati- 
veis com as linhas ZX-81 e Spectrum), 
a cadeia de caracteres é tratada como 
um conjunto dimensionado, e a parti- 
cula TO se encarrega da referência às 
subcadeias de um string. 

Os interpretadores do tipo Microsoft 
também diferem dos do tipo Sinclair 
quanto ao gerenciamento do espaço dis- 
ponível na memória RAM para variá- 
veis literais e numéricas. Ambos, porém, 
armazenam uma variável literal de for- 
ma semelhante (veja o artigo da página 
1101): uma cadeia pode ter entre 0 e 255 
caracteres, armazenados em um conjun- 
to contíguo de bytes. O primeiro byte de 
um string é usado para armazenar o seu 
comprimento, ou seja, o número de ca- 
racteres que possui. Essa informação é 
usada, por exemplo, pela função LEN, 
disponível nos dois tipos de interpreta- 
dor, que informa o comprimento da ca- 
deia. Se uma variável string for conca- 
tenada através de uma expressão como 
LET A$ = A$+ B$, o interpretador ma- 
nipula A$ e B$ de modo a transferi-los 
para uma área livre da memória RAM, 
colocá-los um após o outro, eliminar o 
byte de comprimento do segundo string 
(B$) e atualizar o valor armazenado no 
byte de comprimento do primeiro string 
(AS). 

Como se pode concluir, as operações 
de concatenação são lentas, devendo ser 
evitadas quando possível. Além disso, 
exigem uma área livre de memória para 
a execução da cópia — os originais dos 
dois strings A$ e B$ continuam no mes- 
mo lugar, mas “desativados” pelo in- 
terpretador. Periodicamente, uma fun- 
ção chamada “'coleta de lixo”” (garbage 
collection, em inglês) recupera essas 
áreas para uso pelo programa. 

Quanto à reserva de espaço para 
strings, na RAM, os interpretadores tam- 
bém apresentam diferenças. Os do tipo 
Sinclair operam automaticamente ou 
por meio de uma declaração DIM, que 
deve ser usada para dimensionar strings. 
Os do tipo Microsoft nem sempre pre- 
cisam de uma declaração explícita para 
dimensionar o tamanho da área de 
strings. Nos micros das linhas TRS-80 
e TRS-Color, a instrução CLEAR ser- 
ve a esse propósito. No Apple e no 
MSX, ela não é necessária. 












TROCA 


No artigo Sua ligação com o mundo 
(página 561), examinamos como o dis- 
positivo especial chamado modem po- 
de conectar um micro a outros compu- 
tadores, utilizando a linha telefônica. 
Através dele, uma grande variedade de 
bancos de dados computadorizados fi- 
cará à disposição do usuário: cotações 
das Bolsas, noticiários, referências bi- 
bliográficas sobre assuntos técnicos etc. 
Existem hoje, em todo o mundo, mais 
de um milhão de pessoas que se benefi- 
ciam de redes de computadores. 

O acesso a esses sistemas, entretan- 
to, não é algo exatamente barato, prin- 
cipalmente quando é necessário pagar li- 
gações internacionais (DDI). Além dis- 
so, muitos usuários se ressentem da fal- 
ta de um contato mais pessoal entre 
quem fornece e quem recebe a informa- 
ção — o que talvez explique, por exem- 
plo, o sucesso e a popularidade do ra- 
dioamadorismo. Contudo, já existe um 
equivalente desse hobby dentro do cam- 
po das redes informatizadas de dados. 
Trata-se da versão ''doméstica'”” dos 
grandes sistemas telemáticos (como 
CompuServe e Cirandão) denominada 
quadro de avisos computadorizado (do 
inglês, bulletin board). 

Um Computerized Bulletin Board 
Service (ou CBBS, como é mais conhe- 
cido entre os aficionados) é, em sua for- 
ma mais simples, o equivalente eletrô- 
nico do quadro de avisos de um clube, 
onde todos podem afixar notícias, reca- 
dos etc. Para ter acesso a um sistema 
desse tipo, o usuário precisa — além de 
um telefone e de um micro — dos se- 
guintes elementos: um modem, um soft- 
ware específico para intercomunicação 
e o número do telefone de um CBBS. 
O custo do acesso propriamente dito (ler 
e/ou escrever no quadro de avisos), ge- 
ralmente muito baixo, varia segundo a 
finalidade do serviço (comercial ou não) 
e inclui a despesa normal com a ligação 
telefônica. 

Embora os CBBS existam há algum 
tempo (sobretudo nos EUA, onde fo- 
ram criados), em nosso país eles ainda 
são uma novidade. Apenas as cidades 
maiores, como São Paulo e Rio de Ja- 
neiro, dispõem desse serviço. Tudo in- 
dica, entretanto, que os CBBS se multi- 
plicarão rapidamente e que a maioria 


MENSAGENS 





dos proprietários de modems tomará 
contato com eles brevemente. 





CARREGAR E DESCARREGAR 


Os CBBS não são utilizados somen- 
te como sistemas de mensagens. Na rea- 
lidade, sua rápida expansão se deve, 
principalmente, ao fato de a maioria de- 
les dispor de um serviço especial que 
possibilita a transmissão de software de 
um computador para outro. No jargão 
dos seus aficionados, uploading signi- 
fica o ato de enviar um software para 
armazenamento no CBBS, enquanto 
downloading quer dizer retirar uma có- 
pia das informações disponíveis. É im- 
portante ressaltar aqui que o micro que 
manda e o que recebe a listagem do pro- 
grama não precisam ser compatíveis en- 
tre si. Essa é, portanto, uma oportuni- 
dade rara de transportar certos tipos de 
software por meios incomuns. 

O princípio dessa idéia consiste em 
converter os programas em textos AS- 
CII (padronizados para todos os micros, 
que abordamos, menos o ZX-81) para 
realizar a transmissão via modem. 

Outro requisito para o trabalho de 
copiar os programas disponíveis no 
CBBS é ter uma unidade de discos e um 
interpretador ou compilador da lingua- 
gem original do programa. Com eles, 
poderemos carregar arquivos em forma- 
to ASCII. Os sistemas operacionais das 
linhas TRS-80, TRS-Color e MSX ofe- 
recem essa facilidade sem requerer o em- 
prego de programas conversores espe- 
ciais. Em outros micros, o próprio soft- 
ware de transmissão pode incluir uma 
pequena rotina que transforma texto em 
programas e vice-versa. Além disso, al- 
guns CBBS são específicos para uma li- 
nha de micros (os da linha Apple e IBM 
PC são os mais comuns), e permitem a 
transferência direta de programas entre 
dois computadores compatíveis, sem O 
arquivo ASCII intermediário. 





COMO FUNCIONA UM CBBS 


O quadro de avisos geralmente é 
“hospedado” por um microcomputador 
ligado, por um ou mais modems, a um 
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Compartilhe informações profissionais 
e de lazer com outras pessoas 

através de seu micro. Basta ligá-lo por 
telefone a um dos vários serviços 
computadorizados de “quadro de avisos” 


tronco telefônico. Para baratear os cus- 
tos operacionais, a maioria dos CBBS 
atende simultaneamente a um número 
limitado de usuários — normalmente 
entre le 5. À primeira vista, Isso pare- 
ce pouco, porém, como veremos adian- 
te, é uma impressão falsa já que o tem- 
po útil de conexão de cada usuário é ex- 
tremamente curto: o suficiente para co- 
piar (download) as notícias ou progra- 
mas de interesse para seu disco. 

O quadro de avisos central nada mais 
é que a memória do micro que o geren- 
cia. Hoje, a maioria dos CBBS dispõe 
de discos rígidos de maior capacidade, 
mas pode-se operá-los só com dois acio- 
nadores de disquetes como memória au- 
xiliar. Nesse caso, entretanto, a veloci- 
dade e a capacidade do sistema são sig- 
nificativamente diminuídas. 

Muitos dos CBBS recentemente sur- 
gidos no Brasil constituem iniciativa de 
voluntários. Seguindo a tradição dos en- 
tusiastas da microinformática, eles são 
gratuitos (embora existam alguns, como 
o Sampa CBBS, em São Paulo, que se 
tornaram tão grandes que foi necessá- 
rio fixar uma pequena taxa). Um dos sé- 
rios problemas desse sistema é impedir 
que pessoas não autorizadas tenham 
acesso a ele. Usualmente, isso é feito 
atribuindo-se uma senha a cada mem- 
bro. Contudo, essa é uma questão difi- 
cil de ser solucionada, tanto que nem 
mesmo o Pentágono norte-americano 
vem obtendo sucesso no sentido de evi- 
tar que pessoas não autorizadas pene- 
trem em seus monstruosos “mainfra- 
mes”. Na verdade, muitos CBBS rece- 
bem de braços abertos todos os intrusos. 


| PADRÕES | 


Evidentemente, a distância física entre 
o usuário e o CBBS não representa ne- 
nhum obstáculo, já que um computador 
pode perfeitamente se comunicar com 
outro, em qualquer parte do mundo, des- 
de que ambos tenham modems compa- 
tíveis. Utilizando o equipamento corre- 
to, você poderá se beneficiar de mais de 
1.500 serviços de troca de mensagens es- 
palhados pelos EUA, Canadá e Europa. 
Em razão de não existirem padrões co- 
muns de comunicação entre europeus e 
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norte-americanos, o usuário que desejar 
contatar CBBS dessas regiões deverá dis- 
por de modems diferentes. 

O padrão adotado na Europa é o 
CCITT, sigla de uma agência da ONU 


denominada Comité Consultatif Interna- 


tional Téléphonique et Télégraphique. 
Essa agência estabelece convenções inter- 
nacionais para telecomunicações que po- 
dem também ser seguidas internamente 


di 


“O QUE É QUADRO DE AVISOS 


ré CARREGANDO E 
DESCARREGANDO INFORMAÇÕES 
PADRÕES TÉCNICOS 


VELOCIDADE DE TRANSMISSÃO 


por um pais-membro. Indiretamente, is- 
so acaba facilitando a comunicação en- 
tre todos os proprietários de computado- 
res. Cada país, porém, pode ter simulta- 
neamente outras convenções internas, de- 
terminadas e aprovadas por órgãos esta- 
tais, como o Contel (Conselho de Tele- 
comunicações), no Brasil. 

Nos EUA, o chamado padrão Hayes 
é o mais comum para CBBS privados 


“O MELHOR MODEM 

ACESSO ATRAVÉS DE MENUS 
EXPLORANDO A REDE 
TERMINOLOGIA 
ESPECIALIZADA 


(seu nome deriva da fábrica dos modems 
mais populares e baratos do país). O pa- 
drão Bell também é muito usado. 


VELOCIDADES DE TRANSMISSÃO 
As agências de normatização, nacio- 


nais e internacionais, deixam aos fabri- 
cantes de modems a criação de muitas 
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outras convenções. Os modems são clas- 
sificados em função de diversos parâme- 
tros operacionais e de desempenho co- 
mo, por exemplo, a velocidade de trans- 
missão. A grande maioria dos CBBS — 
os mais baratos — opera com modems 
de 300 bauds, isto é, eles recebem e 
transmitem dados à velocidade de 300 
bits por segundo. (O nome da unidade 
de medida baud é uma homenagem ao 
engenheiro francês Baudot, considera- 
do o inventor de um código para telex.) 
Isso equivale, aproximadamente, a um 
bit enviado a cada 3.3 milissegundos. Já 
os sistemas mais avançados de telecomu- 
nicações digitais seguem o padrão 
1200/75 baud: o computador central 
transmite dados à velocidade de 1200 
bauds e o usuário os envia a apenas 75 
bauds. Sistemas como o Cirandão, da 
Embratel, e o Videotexto utilizam essa 
convenção (seu objetivo é reduzir o tem- 
po de ocupação do computador central, 
devido ao custo elevado, e impor os gas- 
tos da interação ao usuário). 

As taxas de transmissão normalmente 
são múltiplos de 300 (300, 600, 1200, 
2400 etc.), duplicando progressivamen- 
te até atingir 9600 bauds, que é o máxi- 
mo em uso atualmente. 

Em muitos computadores, dependen- 
do dos padrões definidos pelo CCICT 
para interfaces seriais RS-232, as volta- 
gens de representação dos números bi- 
nários 0 e 1 são, respectivamente, + 12 
e — 12 V. Os micros que usam as volta- 
gens +5 e O V necessitam de um con- 
versor, que geralmente é barato. 





BAUDS E BYTES 


Cada caractere de informação trans- 
mitido por um modem compõe-se, ba- 
sicamente, de um bit de início (start bit), 
dos bits de dados (data bits) de um bit 
de paridade (parity bit), usado em tes- 
tes de erros de transmissão, e de um bit 
de término (stop bit). Como vemos, 
existem mais bits do que os oito de um 
byte; assim, para saber quantos bytes 
(caracteres de texto) são enviados por se- 
gundo, tomando como padrão uma ta- 
xa de 300 bauds, por exemplo, dividi- 
mos esse número por ll. 

Embora não haja uma seqiiência 
“natural” nem uma quantidade prees- 
tabelecida para os diferentes bits que 
formam o caractere de transmissão, é 
importante que tanto o emissor quanto 
o receptor reconheçam a convenção se- 
guida. Além disso, ambos devem ser ca- 
pazes de formatar, enviar ou receber os 
dados conforme a taxa padronizada. 

A velocidade adotada por um CBBS 
será escolhida levando-se em conta a ne- 





cessidade de se reduzir os custos do ser- 
viço, até porque os Computerized Bul- 
tetin Board Service não dispõem dos re- 
cursos de hardware das grandes empre- 
sas de telecomunicações. O fato de se- 
rem empregados modems mais baratos 
implica o uso de uma taxa menor de 
transmissão a fim de evitar erros causa- 
dos por interferências elétricas, normal- 
mente filtradas por equipamentos sofis- 
ticados. Com um modem barato ope- 
rando a altas taxas, qualquer pulso na 
rede poderia ser interpretado como um 
bit. Em velocidades pequenas, o pulso 
que define um bit é mais longo e, por- 
tanto, mais fácil de identificar. 

De qualquer modo, o ruído será sem- 
pre um problema difícil de se resolver. 
Com a entrada em serviço das redes di- 
gitais de comunicações baseadas em fi- 
bras ópticas, espera-se que os sinais se- 
jam mais “limpos” e rápidos. 


DUPLEX 


Denominamos full-duplex ou half- 
duplex ao parâmetro que varia de mo- 
dem para modem e diz respeito à simul- 
taneidade das funções de transmissão e 
recepção. Full-duplex significa que um 
determinado modem é capaz de receber 
e transmitir informações ao mesmo tem- 
po; half-duplex indica que ele executa 
apenas uma função de cada vez. 

Evidentemente, um modem half-du- 
plex é mais barato e adequado a traba- 
lhos com micros domésticos, ou até a al- 
gumas aplicações profissionais mais 
simples. Como é preciso aguardar uma 
transmissão terminar antes de iniciar a 
recepção (ou vice-versa), Os erros come- 
tidos na operação poderão trazer alguris 
inconvenientes. A possibilidade de se 
consumir um tempo excessivo pratica- 
mente desaconselha o uso deste equipa- 
mento para trabalhos profissionais. 

Os CBBS se tornaram viáveis graças 
à sofisticação do hardware e software de 
comunicações. O maior passo nesse sen- 
tido foi a introdução de modems ou re- 
cursos de autodiscagem (auto-dialing, 
em inglês) e auto-resposta (quto-answe- 
ring). A partir dessas inovações, as con- 
sultas ao computador hospedeiro do 
CBBS passaram a ser respondidas au- 
tomaticamente com uma linha conecta- 
da entre receptor e transmissor. 


“SOFTWARE PARA COMUNICAÇÕES 


Além do computador, do modem e 
do telefone, faz-se necessário um soft- 
ware especial que transforme o micro 
em um terminal de dados. 


Classificamos o software de comuni- 
cações em: burros e inteligentes. O in- 
teligente — essencial para quem deseja 
operar um CBBS — permite descarre- 
gar o programa (além de texto de men- 
sagens) e armazená-lo automaticamen- 
te no disco. Já o software burro possi- 
bilita apenas a comunicação simples, 
sem qualquer forma de armazenamen- 
to ou listagem. Certos softwares inteli- 
gentes oferecem recursos extremamen- 
te úteis, entre eles o reconhecimento au- 
tomático — através do programa — do 
protocolo seguido pelo computador hos- 
pedeiro e a armazenagem e discagem au- 
tomática de vários números de CBBS. 

A função básica do programa é a de 
permitir que o micro transmita e receba 
sinais (caracteres) pelo modem conecta- 
do ao sistema, mantendo o sincronismo 
entre o teclado, o vídeo e a memória. O 
software orienta o computador por in- 
termédio de comandos relativos à for- 
ma com que os sinais serão transmitidos 
e recebidos. 

Muitas pessoas não conseguem en- 
tender como dois computadores aparen- 
temente incompatíveis podem se comu- 
nicar. E são essas mesmas pessoas que 
costumam criticar os fabricantes de mi- 
cros por constantemente ignorarem os 
padrões que facilitam a interligação en- 
tre equipamentos distintos. 

Por meio do CBBS, temos a falsa im- 
pressão de que um computador está 
identificando os comandos enviados por 
outro diferente (um Apple e um MSX, 
por exemplo). Na verdade, isso só acon- 
tece porque a maioria dos CBBS imple- 
menta seu software de acesso por meio 
de menus relativamente simples. 

Com eles, o usuário seleciona uma 
opção pressionando uma tecla ou digi- 
tando uma linha de comando. Do ou- 
tro lado, um programa especial “varre” 
o modem de recepção, de modo a cap- 
tar os sinais enviados e a Interpretar cor- 
retamente o pedido. A partir daí, os co- 
mandos adequados passam a ser acio- 
nados pelo computador hospedeiro. 


EXPLORANDO OS CBBS 





O primeiro passo para explorar todos 
os recursos dos CBBS à sua disposição é 
adquirir um modem adequado. Confor- 
me abordamos, os CBBS normalmente 
adotam um tipo padrão de 300 bauds, 
com protocolo CCICT ou Hayes. Os sis- 
temas comerciais, como o Videotexto e 
o Cirandão, utilizam o padrão 1200/75. 
Assim, o ideal é que o usuário compre 
um modem que tenha uma chave de se- 
leção para cada modalidade. 

O segundo passo consiste em provi- 








denciar um software de comunicação (se 
ele já não tiver sido fornecido juntamen- 
te com o modem). 

O terceiro passo é descobrir os núme- 
ros de telefone dos CBBS e seus deta- 
lhes técnicos de acesso. Esses dados po- 
dem ser encontrados em revistas espe- 
cializadas de microcomputação. 

Superadas todas as questões, passa- 
remos à parte prática da operação. Co- 
necte o modem à linha telefônica e ao 
microcomputador e execute o software 
de comunicação. Caso a versão utiliza- 
da disponha de autodiscagem, todo esse 
trabalho será feito automaticamente, 
uma vez especificado o CBBS que se de- 
seja acessar. Do contrário, bastará ligar 
o numero telefônico do mesmo e aguar- 
dar o sinal de recepção (geralmente um 
som agudo de poucos segundos denomi- 
nado portadora). Recebido o aviso, pres- 
sione o botão que conecta o modem à 
linha (se o equipamento for de conexão 
direta), ou coloque o bocal do telefone 
nas “orelhas” de acoplamento (se for 
um modem acústico). 

Para termos acesso a alguns CBBS, 
é necessário chamar o número deseja- 
do, deixar tocar uma vez, e, em segui- 
da, discar novamente esse número. Só 
então o procedimento já descrito pode- 
rá ser observado. 

Muitos CBBS funcionam de manei- 
ra semelhante. No início da operação, 
o usuário recebe uma mensagem que in- 
dica seu contato com o CBBS. Depois, 
deve enviar uma senha de entrada e/ou 
o número ou nome de identificação — 
principalmente se o uso do CBBS impli- 
ca pagamento através de assinatura 
mensal ou anual. Tais sistemas, entre- 
tanto, chegam a oferecer, por um tem- 
po limitado, algumas informações para 
convidados e “intrusos”, isto é, pessoas 
ainda não registradas no serviço. 

Os CBBS gratuitos, dependendo do 
tipo, podem solicitar seu nome e cidade 
ou endereço e número telefônico, bem 
como algumas especificações do micro 
usado (modelo, tamanho da tela etc.). 
Esses detalhes são importantes para que 
o computador hospedeiro saiba como 
operar durante a comunicação. 

Na fase seguinte, você receberá infor- 
mações do CBBS: horários de funcio- 
namento, limite de tempo para cada 
chamada etc. Tais dados interessam, so- 
bretudo, aos CBBS voluntários, já que 
algumas chamadas são feitas em horá- 
rios inconvenientes (desagradando o 
operador, que geralmente utiliza o tele- 
fone de sua própria casa para isso). 

Assim como o videotexto, a maioria 
dos CBBS é operada através de menus. 
A escolha de uma opção em um menu 
poderá levar a menus secundários e ter- 


ciários etc. ou à execução da opção. 


Muitos CBBS possuem uma seção que 


permite aos novos usuários registrar seus 
dados (endereço, nome, telefone e senha 
de acesso). Outras opções oferecidas po- 
dem incluir uma seção técnica, comuni- 
cações com o gerente etc. 

O elemento fundamental do CBBS 
está no quadro que contém avisos e no- 
tas para conhecimento geral. Isso, po- 
rém, não exclui a possibilidade de exis- 
tir também uma seção de mensagens 
pessoais: “caixas postais”, com acesso 
limitado por senhas secretas. Esse siste- 
ma permite deixar informações reserva- 
das para outros usuários ou formar sub- 
quadros de avisos dentro do CBBS. 


TERMINOLOGIA 





Há vários termos técnicos que, em- 
bora comuns no campo da comunicação 
entre computadores, são pouco conhe- 
cidos em outros ramos da informática. 
Devido a isso, às vezes, cria-se uma certa 
confusão sobre seu significado. 

A seguir, uma lista dos termos que 
normalmente são mal interpretados: 


Videotexto - Sistema especial de comu- 
nicação entre computadores, oferecido 
como um serviço público pelas compa- 
nhias telefônicas. Através de uma linha 
comum, o computador central envia ao 
usuário a informação (organizada em 
páginas ou telas). Esta é recebida por 
um terminal especial de videotexto ou 
um micro qualquer, que podem respon- 
der fazendo novas solicitações de dados. 
No Brasil, tem-se acesso aos sistemas de 
videotexto por meio de uma assinatura 
mensal junto à companhia telefônica de 
cada cidade. Na Europa, esse serviço, 
implantado em vários países, é denomi- 
nado Prestel. 


Teletexto - Sistema semelhante e mais 
barato que o videotexto. Aqui, en- 
tretanto, a informação é enviada apenas 
em um sentido (do computador central 
para o terminal), aproveitando o inter- 
valo disponível entre dois quadros exi- 
bidos pela TV. Este sistema não existe 
no Brasil. Exemplos no exterior são os 
CEEFAX e o ORACLE, utilizados na 
Inglaterra. Aparelhos de T'V de algumas 
marcas já são fabricados com a interfa- 
ce embutida. 


Videotex - Termo geral que engloba o vi- 
deotexto, o teletexto e os CBBS. Criou-se 
uma certa confusão depois que alguns 
CBBS evoluíram e se transformaram em 
uma rede, apesar de conservarem o mes- 
mo nome. 
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Rede - Em sua forma mais restrita, re- 
fere-se à ligação direta entre vários com- 
putadores com objetivos específicos 
(normalmente para fins comerciais ou 
de pesquisa, como a rede brasileira 
RENPAC). As redes dividem-se em dois 
tipos: a local (LAN, ou Local Area Net- 
work), que, geralmente, envolve apenas 
a ligação direta entre micros e seus pe- 
riféricos ou a um computador central, 
e a telemática (WAN, ou Wide Area 
Network), que inclui ligações remotas, 
via rede telefônica, microondas ou sa- 
télites. Através da LAN, os usuários po- 
dem compartilhar recursos como discos 
e impressoras. A WAN, por sua vez, 
permite a intercomunicação e a conse- 
quente troca de mensagens e transações 
(como em uma rede de automação ban- 
cária, que liga várias agências aos com- 
putadores centrais). 

Uma rede pode ser privada ou públi- 
ca. Existem vários exemplos de redes pú- 
blicas, como o Cirandão, da Embratel, 
ou o Compuserve, nos EUA, com mais 
de 250.000 usuários. 

Nos últimos anos, o termo rede vem 
perdendo sua especificidade, passando 
a significar qualquer forma de interco- 
municação realizada entre computado- 
res. Por esse conceito, todos os serviços 
do tipo videotex também poderiam ser 
considerados uma rede. 


Telex e teletex - Serviços em fase de in- 
tegração a redes de computadores e que, 
por isso, ainda são confundidos. O te- 
lex é um sistema telefônico de comuni- 
cação de textos, de baixa velocidade (15 
bauds), gerenciado por uma central es- 
pecial computadorizada. Existem inter- 
faces que permitem dar a um micro a 
função de um terminal de telex (daí se- 
rem chamadas de microtelex). 

O teletex é uma evolução técnica do 
telex e, muito provavelmente, seu subs- 
tituto direto. Utiliza o mesmo sistema 
de comunicação, porém, a uma veloci- 
dade bem maior, de modo a facilitar o 
uso de micros como terminais. Ainda 
não foi implantado no Brasil. 


Correio eletrônico - Serviço oferecido 
por diversos tipos de rede, videotexto ou 
CBBS. Consiste, basicamente, de “cai- 
xas postais”” (espaço reservado no dis- 
co central a cada assinante), capazes de 
receber mensagens individuais ou circu- 
lares, enviadas por outros usuários, A 
comunicação é feita a nível privado, e 
protegida por senhas. Em alguns países, 
o sistema é prerrogativa do serviço es- 
tatal de correios. No Brasil, como em 
outras nações, esse monopólio já foi 
rompido (Cirandão, Mensagem, Video- 
texto). 
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UM EDITOR 





Apresentamos aqui a segunda parte 
de nosso editor musical. Carregue a pri- 
meira parte da fita cassete ou disco e di- 
gite, na sequência, a listagem dada abai- 
xo. Depois, grave as duas partes para 
juntá-las à que iremos publicar no pró- 
ximo e último artigo da série — onde vo- 
cê encontrará, também, instruções de- 
talhadas para uma eficiente utilização 
do programa, 

Como você terá oportunidade de ob- 
servar, à medida que for digitando, o 
programa é composto por várias sub-ro- 
tinas chamadas do menu principal. É 
possível ter uma idéia da função de ca- 
da uma delas lendo os itens do menu — 
que pode ser exibido na tela ainda que 
o programa esteja incompleto. 


2000 CLS 
2010 GOSUB 2500 
2140 PRINT '*ct;"” Notas tecladas 


(*;maxnotes;"Max.)"** 
2160 INPUT "Entre Notas - <RET> 
para acabar” ;NS 
2175 IF LEN (N$S)=0 THEN GOTO 1 
90 


2180 FOR 1=1 TO LEN (NS): IF (N 
S(1)<"0” OR N$(1)>"9") AND (NS( 
1)<>" 3") THEN GOTO 2000 

2190 LET N=VAL (NS) 


2200 IF INT (N/1000)211 AND INT 
(N/1000)<>-4 THEN GOTO 2000 

2210 IF N<O THEN GOTO 2280 

2220 LET M=INT (N/100): LET D=N 

=M*100 

2230 LET O=M-INT (M/10)*10: IF 


O<l1 OR 0>7 THEN GOoTo 2000 
2240 LET M=INT (M/10)+(0-1)*12- 
36 


2260 LET ct=ct+1: LET t(2*ct-1) 


=D: LET t(2*ct)=M 

7270 GOTO 2000 

2280 LET M=-4: LET D=0- (N-M*100 
) 

2290 IF M<>-4 THEN GOTO 2000 
2310 GOTO 2260 

2500 PRINT "Entre a Nota na for 

ma <Numero>, <Oitava>, <Duracao 
MM ydáds 

2520 PRINT "C - 0 E - 4 Gt- 
Brº"C4- 1 FP - 5 A -9”""D 
= "2 F4- 6 At- 10"'"D4- 3 

G - 7 B - 11” 

2560 PRINT '"PAUSA e -4"'"'""Semi 

colcheia=l Minima = 8"""Col 

cheia = 2 Semibreve=16"'"Se 


MUSICAL ( 
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minima =4 Oitava =1 a 7” 
""Duracao DEVE ter 2 
3304-Dt, Colchei 
6408-F4, Min 


2600 PRINT 
digitos"'“ex. 
a Ja. oitava"'“ex. 
ima da. oitava” 
2630 RETURN 
3000 CLS 
3010 PRINT 
3020 PRINT 
3030 PRINT 
15) mir 
3040 
3050 
3000 
3060 
3070 
3080 
1) 
3090 
3100 
3110 
3120 
3130 
3140 
4000 
4010 PRINT 
"D - Mostrar todas as nota 
E - Editar uma nota”'*'“I - Inse 
rir uma nota”''"X - Apagar uma 
nota”''''**R - Retornar ao menu 
principal” 
4090 PRINT 
O = + 
4100 LET OS=INKETYS: 
EN GOTO 4100 

4105 IF CODE (08)<97 THEN 
0S=CHAS (CODE (05)+32) 


"Tocar musica” 
PRINT PRINT 

"Digite Tempo - (l= 

INPUT S 

IF S<l OR S>15 THEN coTo 


LET tempo=0.02*(16-85) 
FOR 1=1 TO ct 
LET D=t(2*%1-1): LET M=t(2* 
IF m=-4 THEN GOTO 3120 
SOUND D*tempo,M 

GoToO 3130 

PAUSE 50*D*tempo 

NEXT 1 

RETURN 

CLS 

"EDITOR MUSICAL" '"'""* 


""*rEscolha uma opca 
IF 08="" TH 


LET 


4110 IF 08<>"d”" AND 08<>2"e” AND 
08<>"1"” AND 08<>"r” AND 08€<>2"x 
" THEN GOTO 4000 

4120 IF 058="r” THEN RETURN 
4130 IF 058="e” THEN GOTO 4300 

4134 IF 05="1" THEN GOTO 4700 
4136 IF 0$="x" THEN GOTO 4800 
4140 CLS 

4150 FOR i=1l TO ct 

4160 LET M=t(2*1): LET D=t(2*1- 
1) 

4170 LET O=INT ((M+36)/12)+1 
4180 LET N=(M+36)-(0-1)*12 

4190 PRINT 1;" Nota- ";N;"” Oit. 
- ".0:" Dur.- ":;D 

4195 POKE 23692,255 

4200 IF 1=20*INT (1/20) THEN G 
OTo 4220 

4210 GOTO 4250 

4220 PRINT '"Qualquer tecla par 


a continuar : 
4230 PAUSE O 
4240 PRINT 
4250 NEXT à 


Continue digitando nosso programa 
editor de melodias. Com as listagens 
fornecidas no próximo artigo da série, 
ele ficará completo e você poderá dar 
vazão a todo o seu talento musical. 


4260 PRINT '"Qualquer tecla par 
a retornar "; 

4270 PAUSE O 

4280 GOTO 4000 

4320 CLS 

4330 GOSUB 2500 


Dt 


650 P=P-36 

660 IF P=1ANDC<6THEN C=C+1:0CS= 
MIDS (STR$(C),2) 

670 TF P=2ANDC>ITHEN C=C-1:0C$3= 
MIDS (STRS(C),2) 

6580 IF (P=30RP=6)AND LE>1 THEN L 
E=LE-1:LES=MIDS (R1IS,LE,1)+”" ” 
690 IF (P=40RP=7)AND LE<7THEN LE 


| 
1. 
e 
Pa 
ae 
a 
al 
= 
| 
[| me 
ba 


= 


TITIT =. a“ 
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sLE+1:LES=MIDS(RIS,LE,1)+" " 
00 IF P=5 THEN 18="p”":P3="":G0 
TO 750 

710 IF P=60RP=7 THEN LES=LEFTS( 
LES,1)+"." 

720 IF P=8 THEN RETURN 

730 IF P=9 AND NN>O THEN NN=NN- 
1 

740 GOTO 510 

750 U$="L”":IF IS8>="a” AND IS8<=" 
qo” THEN PS=CHARS (ASC(1$)-32) ELS 
E IF 1542"p"THEN PS$=15+" ("ELSE 
P$="".US="R” 

760 PL$="VIST"+STRS(TE)+"0"+OCS 
+US+L 25 (INSTR(RIS,LEFTS(LES,1)) 
) 

"70 IF MIDS(LES,2,1)="."THEN PS 
=PpS+".” 





780 PLS=PLS+PS: PLAY PLS 

790 NN=NN+1:NS (NN) =I5S+0CS+LES 
B00 GOTO 580 

B10 CLS:COLOR 4,15 

B20 LOCATE 3,2:PRINT"ENTRADA MA 
NUAL DE NOTAS"; 

830 LOCATE 3,18:PRINT”"'m' 
RNAR-MENU PRINCIPAL" 

B40 LOCATE 3,19:PRINT"USE FORMA 
TO:alh. (".'opcional) 

850 GOSUB 360:LOCATE 3,21:PRINT 
"ENTRE STRING NOTA:": 

B60 IF NN=MX THEN LOCATE 1,23:P 
RINTTMAXIMO NUMERO DE NOTAS COL 
OCADO!":FOR S5=1T0O1000:NEXT:RETU 
RN 

B70 LINE INPUT AS 

BB0 IF AS="" THEN 870 


RETO 


ts SEGUNDA PARTE 

DO PROGRAMA EDITOR 
mu GRAVAÇÃO E LEITURA 
E DIGITAÇÃO DAS 


SUB-ROTINAS 


B90 IF AS="m"OR AS="M”" THEN RET 
URN 
900 IF LEN(AS)>40RLEN(A$S)<3 THE 
N 970 
910 IF (INSTR(R3S,LEFTS(AS,1))) 
=) THEN970 
920 IF LEFTS(AS,1)="p” THEN AS= 
"p"+” "+MIDS (AS,3) :GOTO 940 
IF (INSTR(R2S,MIDS(AS,2,1)) 
THEN 970 
IF (INSTR(R1$S,MIDS(AS,3,1)) 
THEN 970 
IF MIDS(AS,4,1)<>".”" THEN A 
S=LEFTS(AS,3)+" " 
960 GOTO 990 
970 LOCATE 21,21:PRINT"ENTRADA 
ILEGAL!" ;CHR$S(7) 
980 LOCATE 21,21:PRINT" 

"-GOTO B50 
990 NN=NN+1:NS (NN) =AS 
1000 GoTo 850 
1010 IF NN=0 THEN RETURN 
1020 COLOR 1,15:LOCATE 0,0:PRIN 
T "MODO EDIÇÃO- 1/2/3/4 


1030 LOCATE 0,1:PRINT STRINGS (4 


0,32) 

1040 LOCATE 0,2:PRINT STRINGS (4 
0,32) 

1050 LOCATE 0,18:PRINT STRINGS ( 
40,32) 

1060 LOCATE 0,3:PRINT STRINGS (4 
0,32) 

1070 LOCATE 2,20:PRINT"1:APAGAR 
NOTAS”; 

1080 LOCATE 2,21:PRINT"2:INSERI 

BR NOTAS”; 

1090 LOCATE 2,22:PRINT"3:ALTERA 
R NOTAS”; 

1100 LOCATE 2,23:PRINT"4:CONTIN 
UA” ; 


1110 AS=INKEYS:IF AS<"1"0RAS>"4 
"THEN 1110 

1120 OP=VAL(AS) 

1130 ON OP GOTO 1150,1250,1410, 
1140 

1140 RETURN 

1150 LOCATE 12,0:PRINT"1I:APAGAR 


NOTAS" 
1160 LOCATE 0,2:INPUT"INICIA NA 
NOTA” ;ST 
1170 IF ST=0 THEN 1010 
1180 IF ST>NN THEN 1150 
1190 LOCATE 0,3: INPUT"QUANTAS A 
PAGA (ENTER=1)":ND 
1200 IF ND<=0 THEN ND=1 
1210 IF ST+ND-1>NN THEN ND=NN-S 
T+1 
1220 FOR K=1ITOND 
1230 FOR J=ST TO NN-1:NS(J)=NS( 
pJ+1) :NEXT 
1240 NN=NN-1:NEXT K:I=SL-1:GOTO 





1010 
1250 LOCATE 12,0:PRINT"2: INSERT 
R NOTAS" 

1260 LOCATE 0,2: INPUT"INICIA IN 
SERÇÃO APÓS QUE NOTA";ST 

1270 IF ST<0 THEN 1010 

1280 IF ST>NN THEN ST=NN 

1290 LOCATE 0,3:PRINT"TECLE'M'P 
ARA ENCERRAR :"; 

1300 IF NN=MX THEN LOCATE 2,18: 
PRINT"MAXIMO NUMERO DE NOTAS CO 
LOCADAS!”":FOR D=1TO 2000:NEXT:I 
=SL=1:GOTO 1010 

1310 LINE INPUT NS:IF N$="M"OR 
N$="m"THBEN I=SL-1:GOTO 1010 
1320 IF LEN(NS)<3 THEN LOCATE 2 
2,3:PRINT"ILEGAL":GOTO 1290 
1330 IF INSTR(R3S,LEFTS(NS,1))= 
DORINSTA (R25,MIDS (N$,2,1))=00RI 
NSTR (R1S,MIDS(N$,3,1))=0 THEN L 
OCATE 22,3:PRINT"ILEGAL”":-GOTO 1 
290 NOTAS 

1340 IF MIDS(N$S,4,1)="."THEN NS 
=LEFTS (NS, 4) ELSE NS=LEFTS (N5,3) 
+" nr 
1350 
1360 
1370 
1380 
1390 


IF ST=NN THEN 1380 

FOR K=NN+1 TO ST+2 STEP -1 
NS (K)=NS (K-1) :NEXT 

NS (ST+1)=NS 
ST=ST+1L:NN=NN+1 

1400 GOTO 1290 

1410 LOCATE 13,0: INPUT"3:ALTERA 
R NOTA" ;ST 

1420 IF ST=0 THEN 1010 

1430 IF ST>NN THEN ST=NN 

1440 LOCATE 11,2:PRINT NS(ST) 
1450 RT=255:LP=-2:1I=ST:GOSUB 16 
20 
146 
Q-.". 


LOCATE 0,2:PRINT"NOVO VALO 

"+ «LINE INPUT N$ 

1470 IF LEN(NS$)<3 THEN 1460 

1480 IF INSTR(R3S,LEFTS(NS,1))= 

DORINSTR (R2S,MIDS (NS,2,1))=00RI 

NSTR(R15,MIDS (NS,3,1))=0 THEN 1 

460 

1490 IF MIDS(NS,4,1)="."THEN NS 

=LEFTS (NS, 4) ELSE NS=LEFTS (NS,3) 

mm 

1500 NS (ST)=NS:GOSUB 1620 :FOR 

K=1702000:NEXKT:AT=0:I=SL-1l:LP=0 
“GoTo 1010 

1510 IF NN=0 THEN RETURN ELSE € 

LS:COLOR1I,15:LOCATE 11,1:PRINT” 

LISTAR NOTAS” 

1520 C=1:SL=1:EL=NN:PS="N”":BT=0 

1530 LOCATE 4,3: INPUT"LISTAR NA 
IMPRESSORA (5/N)"; PS 

1540 IF PS="S" THEN C=2 

1550 LOCATE 4,5: INPUT” INICIO EM 
(ENTER= 1)";SL 

1560 IF SL<=0 THEN SL=NN: EL=NN 

1570 LOCATE 4,6: INPUT"FINAL EM 
(ENTER=FIM)";EL 

1580 IF EL=0 OR EL>NN THEN EL=N 

N 

1590 IF SL>EL THEN SL=EL 

1600 CLS:LP=0 


600 P=P-36 
610 IF P=1ANDC<3THEN C=C+1:0C3= 


MIDS (STR$S(C),2) 

620 IF P=2ANDC>ITHEN C=C-1:0CS= 

MIDS (STRS(C),2) 

630 IF (P=30RP=6)AND LE>1 THEN 

LE=LE-1:LES=MIDS (R1I$S,LE,1)+” " 

640 IF (P=40RP=7)AND LE<5 THEN 

LE=LE+1: LES=MIDS (R1$S,LE,1)+" " 

650 IF P=5 THEN 13="p”:P$="":GO 

TO 700 

660 IF P=60RP=7 THEN LES=LEFTS( 

LE3,1)+"." 

670 IF P=8 THEN RETURN 

680 IF P=9 AND NN>DO THEN NN=NN- 
1 

690 GoToO 490 

700 IF IS>="a” AND IS<="q"” THEN 
PS=CHARS (ASC(1S)-32) ELSEIF IS< 
>"p” THEN PS=IS+" "ELSE P$S="" 
710 PL$S="V31;T"+STARS(TE)J+"L"+LZ 
S (INSTR(AR1IS,LEFTS(LES,1))) 

720 IF MIDS(LES,2,1)="." THEN P 
L$=PLS+"." 

730 PL$=PL$+"0"+0CS+PS: PLAY PLS 
740 NN=NN+1:NS (NN) =18+0CS+LES 
750 GOTO 530 

760 CLS 

770 PRINTE64,"ENTRADA MANUAL DE 

NNTAS": PRINT633,"ENTRE'm' PARA R 

ETORNAR AO MENU” 

780 PRINT"USE FORMATO:'alh.'('. 
"'OPCIONAL)” 

790 GOSUB 280:PRINT6416,"ENTRE 
STRING NOTA:" 

800 IF NN=MX THEN PhINT644B,"MA 

XIMO NUMERO DE NOTAS COLOCADO!" 
'FORD=1T01000:NEXT: RETURN 

810 POKE 282,0:PRINTE44!: PRINTE 

462,;:LINE INPUT AS 

820 IF A$="" THEN 810 

830 IF A$="m"OR AS="M"THEN RETU 

RN 

840 IF LEN(AS)>40R LEN(AS)<3 TH 
EN 910 

850 IF (INSTR(R3S,LEFTS(AS,1))) 
=0 THEN 910 

B60 IF LEFTS(AS,1)="p” THEN AS= 
"p"+” "+MIDS (AS,3):GOTO 880 

870 IF (INSTR(R25,MIDS(AS,2,1)) 
)=0 THEN 910 

BB0 IF (INSTR(R1$,MIDS(AS,3,1)) 
)=0 THEN 910 

B90 IF MIDS(AS,4,1)<>".” THEN À 
S=LEFTS(AS,3)+" * 

900 GoTo 920 

910 PRINTê4d4B, LEFTS(AS,4);" -EN 

TRADA ILEGAL!”:SOUND 1,5:GOTO 8 
10 

920 NN=NN+1:NS (NN)=AS 

930 GOTO 790 

940 IF NN=0 THEN RETURN ELSE PO 
KE 282,0 

950 PRINT644B,"1:APAGAR NOTA ", 
"2: INSERIR NOTAS”","3:ALTERAR NO 
TA ","4:CONTINUAR”; 

960 AS=INKEYS:IF AS<"1I"OR AS>"4 
"THEN 960 

970 OP=VAL (AS) 

980 ON OP GOTO 1000,1100,1260,9 
90 

990 RETURN 

1000 IF NN=0 THEN 940 ELSE CLS: 
INPUT"INICIA NA NOTA";ST 

1010 IF ST=0 THEN 940 


1020 IF ST>NN THEN 1000 

1030 PRINTO64," QUANTAS APAGA (EN 
TER=1)";: INPUT ND 

1040 IF ND<=0 THEN ND=1 

1050 IF ST+ND-1>NN THEN ND=NN-S 

T+1 

1060 FOR 1=1 TO ND 

1070 FOR J=ST TO NN-1:NS(J)=NS( 
J+1) :NEXT 

1080 NN=NN-1 

1090 NEXT I:RETURN 

1100 CLS: PRINTE7,"MODO INSERCAO 
DE NOTAS” 

1110 PRINTe64," INICIA INSERCAO 
APOS QUE NOTA”: INPUT ST 

1120 IF ST<0 THEN 940 

1130 IF ST>NN THEN ST=NN 

1140 PRINTE664,"TECLE'm' QUANDO V 
OCE TERMINAR” : PRINT 

1150 IF NN=MX THEN PRINT"MAXIMO 
NUMERO DE NOTAS COLOCADO!” :FOR 
D=1 TO 1000:NEXT:RETURN 

1160 INPUT N$S:IF N5S="M"OR N$="m 
"THEN RETURN 

1170 IF LEN(N$)<3 THEN PRINTFIL 
EGAL":GOTO 1160 

1180 IF INSTR(R3S, LEFTS(NS,1))= 
OORINSTR (R25,MIDS (NS,2,1))=00RI 
NSTR(R1$,MIDS (NS,3,1))=0THEN PR 
INT"ILEGAL":GOTO 1160 

1190 IF MIDS(NS,4,1)="."THEN NS 
=LEFTS (N$,4) ELSE NS$=LEFTS(N$S,3 
J+” [4 
1200 
1210 
1220 
1230 
1240 


IF ST=NN THEN 1230 

FOR I=NN+1 TO ST+2 STEP-1 

NS (1)=NS(I-1) :NEXT 

NS (ST+1) =N$ 

ST=ST+1:NN=NN+1 

1250 GOTO 1150 

1260 CLS: PRINT"MUDAR QUE NOTA”; 
: INPUT ST 

1270 IF ST=0 THEN 940 

1280 IF ST>NN THEN ST=NN 

1290 PRINT: PRINT"VALOR ATUAL:": 

AS=NS (ST) :RT=255:GOSUB 350 
1300 PRINT NS(ST) 

1310 PRINT6320: PRINT6320,"”"; 
PUT"NOVO VALOR:";NS 

1320 IF LEN(N$S)<3 THEN 1310 

1330 IF INSTR(R3IS,LEFTS(NS,1))= 

OORINSTR (R2$,MIDS (N$,2,1))=00R 
INSTR (R1S,MIDS(NS,3,1))=OTHEN 1 
310 

1340 IF MIDS(N$S,4,1)=".”" THEN N 

S=LEFTS (NS, 4) ELSE NS=LEFTS(N5,9 
J+” nm 

1350 NS (ST) =NS: FORK=1TO2Z2000:NEX 

T:GOTO940 

1360 IF NN=OTHEN RETUAN ELSE CL 

S.PRINTAZ,"OVCAO LISTAH NOTAS”: 

C=0 

1370 IF (PEEK(65314)AND1I)J=1 THEN 
1400 

1380 POKE 282,255:PHRINTO64,"";: 
INPUT"LISTAR NA IMPRESSORA (S/N) 
"1PS 

1390 IF P$S="S" THEN C=-4:POKE 1 
50,1 

1400 PRINTEIZ8B,"INICIO NA NOTA” 
s: INPUT ST 

1410 IF ST<=0 THEN ST=NN 

1420 IF ST>NN THEN ST=NN 

1430 CLS:LP=0 


“IN 
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Nos artigos anteriores desta série, 
examinamos os recursos “'secretos” do 
micro TRS-80 para a saída de vídeo. En- 
tre outras coisas, vimos como gerar 
pseudo-sprites e como levar cópias de te- 
las para a memória e vice-versa. 

O teclado do TRS-80 também tem vá- 
rias características interessantes, que não 
estão bem documentadas nos manuais de 
operação ou mesmo nos livros mais ele- 
mentares sobre o assunto. Neste artigo, 
você aprenderá alguns truques que po- 
dem ser executados com facilidade, co- 
mo o bloqueio da tecla < BREAK >, a 
implementação de um cursor piscante, a 
programação da repetição automática de 
teclas e a entrada direta de símbolos grá- 
ficos pelo teclado. 

Esses recursos são possíveis porque 
a memória do TRS-80 contém o mapa 
do teclado, assim como o do vídeo. O 
teclado desse micro é do tipo matricial, 
ou seja, ao se pressionar uma tecla, ela 
aciona o cruzamento entre dois condu- 
tores: um colocado nas colunas, e ou- 
tro, nas linhas. Isso gera um código bi- 
nário, que é recuperado pelo software 
processador do teclado. Este efetua uma 
varredura a intervalos de alguns milis- 
segundos, passando por todos os fios 
horizontais e verticais. O número obti- 
do é depositado em uma locação espe- 
cífica da memória de teclado. 

Diversas outras locações da memória 
RAM reservada para a área de trabalho 
do interpretador BASIC são dedicadas 
ao teclado. Através de comandos PEEK 
e POKE, é possível verificar, e mesmo 
alterar, seu conteúdo, produzindo curio- 
sos e variados efeitos. 





BLOQUEIO DA TECLA <BREAK > 


Como você já sabe, a tecla 
< BREAK > do TRS-80 interrompe um 
programa BASIC em execução, indepen- 
dentemente do que ele estiver fazendo, 
e retorna o controle ao interpretador. 

A facilidade de interromper o progra- 
ma pode ser um inconveniente quando 
se deseja torná-lo imune a erros de ope- 
ração ou se quer impedir que alguém o 
liste. Imagine a seguinte situação: vo- 
cê colocou um programa educativo nas 
mãos de uma criança; ao aparecer a 


mensagem “PRESSIONE QUALQUER 
TECLA PARA CONTINUAR”, ela 
aciona justamente a tecla < BREAK >! 
A culpa, com certeza, é sua... 

Para evitar ocorrências desse tipo, 
convém bloquear o efeito da tecla 
< BREAK > através de comandos POKE 
nas locações de memória 16396 e 16397: 


POKE 16396,175:POKE 16397,201 


Para ativar novamente a tecla, basta 
utilizar o comando: 
POKE 16396, 201 


Esse truque funciona em qualquer 
micro compatível com os modelos 1 e II 
da linha TRS-80, e pode ser empregado 
tanto como comando direto quanto den- 
tro de um programa. 

Há um problema, entretanto, Se vo- 
cê estiver usando o BASIC de disco, e 


“tentar acessá-lo durante a desativação da 


tecla < BREAK >, o computador pode- 
rá “congelar"'. Para evitar que isso 
aconteça, aconselha-se recorrer a outra 
locação de memória para dar o coman- 
do POKE. Não se esqueça, porém, de 
que esta varia de acordo com o sistema 
operacional de disco (DOS) empregado: 


DOS DESATIVA ATIVA 

TRSDOS 2.3 POKE 23886,0 POKE 23886,1 
NEWDOS 2.1 POKE 23461,0 POKE 23461,1 
NEWDOS 80 POKE 19408,0 POKE 19408,1 


A maioria dos micros nacionais da li- 
nha TRS-80 utiliza sistemas compatíveis 
com o TRSDOS (pronuncia-se trisdós). 
Se seu micro usa a versão CP/M, você 
não poderá desativar a tecla < BREAK > 
por meio da operação sugerida. 

Um aviso final: se seu programa ain- 
da não foi gravado, tenha muito cuida- 
do ao usar esse truque, assegurando que 
a tecla <BREAK> possa ser reativa- 
da. Caso contrário, você poderá ficar na 
desagradável situação de nunca mais po- 
der listar seu próprio programa! 





AUTO-REPETIÇÃO 


Os modelos da linha TRS-80 1 e II 
(como o Prológica CP-500) não têm a 
capacidade de repetição automática das 
teclas — ou seja, as teclas não se auto- 








Aprenda a explorar todas as 
possibilidades do teclado do TRS-80 
e a utilizá-lo de forma criativa. 
Comandos PEEK e POKE garantirão 
o sucesso de suas experiências. 


repetem durante o período em que es- 
tão sendo pressionadas, 

Este é um recurso útil para uma sé- 
rie de aplicações: por exemplo, jogos em 
que o movimento de um cursor ou o dis- 
paro de uma metralhadora são contro- 
lados por teclas auto-repetitivas. 

Há uma maneira, porém, de saber se 
uma tecla continua sendo pressionada 
ou não, o que nos permite implementar 
uma rotina de repetição. Se o valor da- 
do por um PEEK(14591) for igual a 0, 
nenhuma tecla está sendo pressionada; 
se esse valor for maior que 0, uma tecla 
está sendo pressionada. 

Para entender como funcionaria um 
laço simples de repetição, digite: 

10 PRINT PEEK(14591);:GOTO 10 


Ao ser executado, O programa impri- 
me uma sequência de zeros na tela. 
Quando uma tecla é pressionada, esse 
valor muda. Note que cada tecla ou 
combinação de teclas (pressionadas jun- 
to) tem um valor diferente, que não cor- 
responde ao valor ASCII da tecla. 

Para aplicar esse expediente, identi- 
fique os números das teclas que deseja 
usar para direcionar a lógica de deter- 
minado programa e introduza vários IF 
dentro do mesmo. Se você quiser utili- 
zar os valores ASCII gerados por cada 
tecla pressionada, precisará de um IF 
para testar se a tecla continua pressio- 
nada, e outro para localizar essa tecla. 

Como exemplo, execute este progra- 
ma. Ele desloca um cursor pela tela, sob 
o controle de quatro teclas (flechas). 


10 CLS:X=64:Y=7Z4 

15 SET(X,7Y) 

20 IF T$%>0 AND PEEK(14591)2>0 
THEN 50 

25 TS=INKEYS:IF T$="" THEN 25 
30 TI=ASC(TS) 

S0 IF Tt=8 THEN X=X-1:GOTO 15 
60 IF Tt=9 THEN X=X+1:GOTO 15 
70 IF Tê=91 THEN Y=Y-1:GOTO 15 
BO IF Tê=10 THEN Y=Y+1:GOTO 15 
90 GOTO 25 


A linha 10 do programa define a po- 
sição inicial do cursor (um pequeno pon- 
to na tela), “aceso” pelo comando SET, 
com as coordenadas X e Y na tela. 

A linha 20 verifica se alguma tecla es- 
tá sendo pressionada — ou seja, se O va- 
lor T% (código ASCII da tecla, deter- 











minado na linha 30) e o conteúdo da me- 
mória 14591 são, simultaneamente, 
maiores que O. Em caso afirmativo, o 
programa pula para a linha 50, que ini- 
cia vários testes para identificar qual das 
teclas com flecha foi pressionada. As 
coordenadas X e Y são alteradas para 
mais ou para menos, e um outro ponto 
é aceso na tela na nova posição. A li- 
nha 20 testa mais uma vez se essa tecla 
continua pressionada, executa um des- 
locamento e assim por diante. 

Se nenhuma tecla estiver sendo pres- 
sionada, o programa vai para a linha 25, 
que cria um laço de varredura do tecla- 
do com a função INKEYS. Essa linha 
se repete até que se pressione alguma te- 
cla. Então, o valor ASCII da tecla é 
identificado e armazenado em T%, pe- 
la linha 30. A partir daí, o micro se com- 
porta como se tivesse a capacidade de 
repetição automática das teclas. 

Observe que, se nenhuma das quatro 
teclas com flecha tiver sido pressiona- 
da, o programa retorna ao laço de es- 
pera situado na linha 25. 

Ao executar esse programa, tenha o 
cuidado de não ultrapassar os limites da 
tela com o cursor, para que não ocorra 
um erro na linha 15. Se quiser melho- 
rar O programa, introduza testes para as 
alterações de X e Y, de modo a impedir 
que eles ultrapassem os valores mínimo 
e máximo da tela. 


O CURSOR PISCANTE 





Normalmente, o cursor de texto do 
TRS-80 é um traço de sublinhar, não 
piscante. Não é fácil localizá-lo com a 
tela cheia de texto. A dificuldade au- 
menta em aplicações de deslocamento 
bidimensional do cursor, sobretudo se 
ele se sobrepõe a um trecho gráfico. 

Um bom recurso consiste em fazer o 
cursor piscar repetidamente, distinguin- 
do-se dos caracteres de fundo. No 
TRS-80, porém, só se obtém esse efeito 
por meio de software, já que nenhum de 
seus comandos permite alterar a função 
do cursor. Portanto, a rotina precisa ser 


suficientemente rápida para não ''segu-. 


rar” o usuário que está digitando o tex- 
to a uma certa velocidade. 
Um problema adicional é fazer o cur- 


TA | | | 





ne TRUQUES COM O TECLADO 
E COMO DESATIVAR 
À TECLA <BREAK> 
“ROTINA PARA À 
“REPETIÇÃO AUTOMÁTICA 


sor piscar quando está sobre um carac- 
tere já impresso. Nesse caso, devemos 
copiar o valor do caractere em uma va- 
riável, antes de piscar, e recolocá-lo na 
tela. Os comandos PEEK e POKE des- 
ta rotina encarregam-se disso: 


100 T$S=INKEYS: IF T$<>"" THEN 
120 

110 POKE X2,95:POKE X&,Ct:GOTO 
100 

120 RETURN 


Antes de chamar a rotina, coloque a 
posição atual do cursor em X%. Este é 
um valor entre 15360 e 16383, números 
que correspondem às locações da me- 
mória de vídeo na RAM. Para obtê-lo, 
examina-se o conteúdo das memórias 
16416 e 16417. O valor ASCII do carac- 
tere nessa posição deve ser colocado em 
C%. Assim, a rotina poderá fazer o cur- 
sor piscar, após verificar o código arma- 
zenado na locação X% de video: 


10 X$=PEEK (16417) *256+PEEK 
(16416) 

20 C&=PEEK(X$) 

30 GOSUB 100:PRINT T$S;:GOTO 10 


A linha 30 chama a rotina e imprime 
O caractere que se pressionou, retorna- 
do pela sub-rotina em T$. A volta à li- 
nha 10 tem o efeito de deslocar o cur- 
sor uma posição à direita no vídeo, rei- 
niciando a rotina de piscar o cursor. 

Essa rotina permite ainda que se mo- 
difique a forma do cursor. Note que 
usamos o código ASCII 95, que corres- 
ponde ao traço de sublinhar. Para co- 
locar na tela um retângulo sólido, subs- 
titua 95 por 191, na linha 110. 





“ GRÁFICOS PELO TECLADO 


Como vimos em artigo anterior (pági- 
na 1259), o emprego da rotina INKEY$ 
no lugar do comando INPUT possibili- 
ta a entrada dos caracteres gráficos do 
TRS-80 diretamente pelo teclado. Assim, 
se usarmos uma combinação das teclas 
< SHIFT > e < LINEFEED > (tecla pa- 
ra baixo), teremos o mesmo efeito da te- 
cla < CONTROL > de outros computa- 
dores, e poderemos gerar códigos ASCII 
diferentes, pelo teclado. Se pressionar- 
mos, por exemplo, a tecla A, juntamente 





— DAS TECLAS 

1] CURSOR DE TEXTO 
a PISCANTE 
E ENTRADA DIRETA 
DE SÍMBOLOS GRÁFICOS 









VARREDURA DO TECLADO 

A função INKEYS$ é bastante útil pa- 
ra se detectar, dentro de um programa, 
se alguma tecla foi pressionada. Mas, 
às vezes, ela não é suficiente para sa- 
tisfazer certas necessidades do progra- 
mador — como indicar se duas ou mais 
teclas foram pressionadas simultanea- 
mente, ou detectar 0 acionamento de 
uma tecla que não gera um código atra- 
| vés do INKEY$, como <SHIFT>. 
Conhecendo a organização do tecla- 
| do, porém, esse tipo de verificação não 
oferece dificuldade. O teclado é disposto 
na forma de uma matriz. Quando uma 
tecla é pressionada, um determinado va- 
lor numérico entre 1 e 128 (potências 
de 2) é depositado na memória RAM 
correspondente a uma fileira (um dos se- 
guintes endereços: 14337, 14338, | 
14340, 14344, 14352, 14368, 14400 
ou 14464), À correspondência entrete- | 
cla e endereço nos permite identificar a 
tecla ou teclas pressionadas. Por exem- 
plo, a tecla < SHIFT >, quando pressio- 
nada, gera o código 1 na locação de me- 
mória 14464. 

Quando duas ou mais teclas são 
pressionadas simultaneamente, geran- 
do códigos no mesmo endereço, o nú- | 
mero resultante é a soma dos códigos 
individuais. Assim, se J, Ke L forem | 
pressionadas, o número 4+8+ 16 = 
28 será colocado no endereço 14338. 

Para montar sua própria tabela de 
correspondência entre teclas e valores, 
faça um programa de uma linha, usan- 
do um PEEK para examinar o conteú- 
do de cada uma das memórias dentro 

de um laço infinito. 









































com as anteriores, geramos o código AS- 
CII 1. Detectando esse código na rotina 
INKEYS, bastará somá-lo ao valor 128 
para obtermos em TS$ (variável de saída) 
o gráfico correspondente, que também 
será impresso na tela. 

Substitua a linha 130 por: 


130 IF ASC(T$)<32 THEN T$=CHAS ( 
Tt+128) 
140 RETURN 








414 





Como vimos no artigo da página 
1332, podemos conseguir um alto indi- 
ce de compressão de textos através da 
utilização de um conjunto reduzido de 
caracteres (só letras maiúsculas e alguns 
simais de pontuação) e da compactação 
dos códigos resultantes em um número 
menor de bits. Examinamos também o 
uso da estatística de ocorrência de letras 
e outros símbolos em um texto, para ob- 
ter um código progressivo de quatro 
bits. O procedimento garante uma gran- 
de eficiência de compressão (cerca de 
45%), envolvendo um programa relati- 
vamente simples em BASIC, para codi- 
ficação e decodificação. 

Neste artigo, apresentaremos outros 
métodos de compressão de textos. Um 
deles, conhecido como método chinês, 
mostra-se particularmente útil para a 
compressão de textos muito longos e 
com repetições frequentes de um con- 
junto reduzido de palavras — o que, cer- 
tamente, não é próprio de programas de 
aventuras. De qualquer maneira, esse 
método completa o leque de alternati- 
vas de compressão de textos e, dada a 
sua eficácia, poderá ser aproveitado em 
outros tipos de programa. 





UM SUPERCOMPRESSOR 


O algoritmo estatístico de compres- 
são de textos, que estudamos no artigo 
anterior, toma como base a diferença de 
frequência das letras em um texto para 
construir um sistema de códigos em que 
os caracteres de maior uso têm um nú- 
mero menor de bits. Para facilitar a pro- 
gramação em BASIC desse algoritmo, 
limitamos a quatro o número minimo de 
bits por caractere. Poderiamos, entre- 
tanto, utilizar um número ainda menor 
de bits para as letras mais freguentes: 
dois ou três, por exemplo. Com o esque- 
ma adotado anteriormente — em que se 
usa um nibble O para assinalar a mudan- 
ça de “dicionários” de códigos —, os 
ganhos da compactação seriam mini- 
mos, pois, com a mudança constante de 
dicionários, o número de zeros acaba- 
ria se tornando muito elevado. Portan- 
to, para a codificação com um número 
menor de bits, aquele esquema não ser- 
viria. 















Neste artigo, examinaremos novas 
técnicas de compressão de textos. 
Com as várias alternativas dadas, não 
será difícil reduzir o espaço 

de memória ocupado por seu jogo. 
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mm UM SUPERCOMPRESSOR 
ESQUEMA DUPLO DE 
qem CODIFICAÇÃO 

= CALCULO DA FREQUÊNCIA 
DE PARES 


ESQUEMA DUPLO DE CODIFICAÇÃO 


E possível empregar, porém, um mé- 
todo mais elaborado, que adota um es- 
quema duplo de codificação: 

- quanto mais fregiente a letra no 
texto a ser codificado, menor é o núme- 
ro de bits usado para seu código. Por 
exemplo: o espaço (caractere mais fre- 
quente em qualquer texto) tem um có- 
digo binário de três bits (011); a letra E, 
de cinco bits (10111). Já a letra P, não 
tão frequente, tem um código de seis bits 
(110110), e a letra Z, de oito bits 
(11111100); 

- certos pares de letras muito comuns 
em um texto também recebem um códi- 
go binário reduzido. O esquema de co- 
dificação é o mesmo das letras, mas O 
efeito de compressão é bem mais pode- 
roso, já que estamos substituindo dois 
bytes (dezesseis bits) por um número 
muito menor de bits no novo código. 





CÁLCULO DA FREQUÊNCIA DE PARES 


Apresentamos, a seguir, um progra- 
ma destinado a computar e exibir os pa- 
res de letras mais frequentes em um tex- 
to, Ele usa a mesma técnica do progra- 
ma que determina a frequência simples 
dos caracteres, fornecido no artigo an- 
terior. 

Em primeiro lugar, o programa ini- 
cializa os conjuntos L — que conterá a 
frequência de pares que começa com ca- 
da caractere ASCII, de 32 a 90) — e F 
— que contera em cada casela F(I,J) a 
frequência acumulada pelo par de carac- 
teres com códigos 1 e J. 

Em todas as versões, exceto a do 
Spectrum, o sinal % depois de L e F ser- 
ve para definir como inteiro o tipo do 
conjunto. Isso economiza memória e au- 
menta a velocidade de processamento. 
As linhas 20 a 40 não são necessárias nos 
computadores que inicializam em O to- 
das as variáveis numéricas, quando 
RUN é digitado. 


10 DIM L?(60),F?(60,60),C%(60) 


a -DESCOMPRESSÃO 
TOO METODOCHINÊS 
BB CODIFICAÇÃO POR DICIONÁRIOS 
TO DECODIFICAÇÃO 


20 NT=0:NP=0 

30 FOR I=1 TO 60:L2%(1)=0 
35 FOR J=1 TO 60 

40 Ft(1I,J)=0:NEXT J:NEXT I 


Coloque um comando CLEAR 3000 
na linha 10, antes da declaração DIM, 
para o TRS-80 e TRS-Color. 


L(60),£(60,60),c(60) 
nt=0:LET np=0 

i=l TO 60:LET L(i)j=0 
)=1 TO 60 

£ (1,9)=0:NEKT 35:NEXT à 


10 DIM 
20 LET 
30 FOR 
35 FOR 
40 LET 


A parte seguinte do programa prin- 
cipal lê as linhas DATA que contêm o 
texto a ser codificado. Para fins de tes- 
te, você poderá recorrer ao texto de ins- 
truções de uma aventura, dado no arti- 
go anterior, acrescentando-o ao final 
deste programa. 


” : o PT 


60 PRINT "ANALISANDO..." 

70 READ LS:IF LS$="*” THEN 100 
75 PRINT LS:LT=LÊN(LS) 

BO NT=NT+LT 

85 IF INT(LT/2)<>LT/2 THEN L$= 
Lg+” = 

90 GOSUB 520:GOTO 70 





"ANALISANDO..." 
LS: IF L$="*" THEN GOTO 


60 PRINT 
0 BEAD 
100 

5 PRINT LS:LET LT=LEN Ls 
80 LET nt=nt+I.L 
B5 IF INT Lt/2 
L$=L5+" * 

90 GOSUB 520:GOTO 70 


<2Lt/2 THEN LET 


Um asterisco na linha de texto (LS) 
indica o fim do mesmo. Caso o texto 
não tenha terminado, calcula-se o com- 
primento LT de LS$. Se LT for impar, 
é preciso acrescentar um espaço em 
branco ao final de L$, para que a roti- 
na de contagem efetue corretamente o 
cálculo e a extração de pares de carac- 
teres. Isso é feito pela linha 85, que ve- 
rifica se o resto da divisão de LT por 2 








' 
] 
| num 
| 
Bs] | 
| 
| l 1 es o | 





é maior que O (se for, é impar). Final- 
mente, a linha 90 chama a rotina de con- 
tagem, que começa em 520: 


ny Lab lio| 


500 REM - ROTINA DE CONTAGEM 
520 FOR I=1 TO LEN(L$S)-1 

525 NP=NP+1 

530 C1I=ASC(MIDS(LS,1,1))-31 
540 C2=ASC(MIDS(LS, I+1,1))-31 
545 LI(CI)=LI(CI)+1 

5580 Fa(Ci,02)=Ft(C1l,C2)+1 

560 NEXT I 

570 RETURN 

500 REM - ROTINA DE CONTAGEM 
520 FOR 1=1 TO LEN LS-1 

525 LET np=np+l 

530 LET cl=ASC(LS,1i TO 1)-31 
540 LET c2=ASC(LS,i to 1+1)-31 
545 LET L(cl)=L(cl)j+1 

580 LET Elcl,c2)=ficl,ci)+i 
560 NEXT I 

570 RETURN 


A rotina de contagem é muito sim- 
ples: o laço que vai da linha 520 à 560 
percorre L$ tomando um caractere por 
vez. As variáveis Cl e C2 conterão os 
códigos ASCII do primeiro e do segun- 
do caracteres de um par. Subtraindo o 
valor 31 desse código, obteremos um nu- 
mero compreendido entre 1 (espaço) e 
58 (letra Z). Cl e C2 servirão assim co- 
mo índices para acumular a casela cor- 
reta de F e de L. 

O programa principal termina quan- 
do se atinge o final do texto e a rotina 
dos resultados é chamada. 


100 PRINT "TOTAL: ";NT;"CARACTE 
RES E ";NP;" PARES: 
120 GOSUB /B0 


140 STOP 


A rotina de exibição, que começa em 
780, utiliza uma rotina de ordenação pa- 
ra mostrar os resultados em ordem de- 
crescente, ou seja, os pares mais fre- 
quentes em primeiro lugar. 


“TITE alrol 


REM - ROTINA DE OADENACAO 
N=60 

FOR J=1 TO 60:C&t(J)=J:NEXT 
FL=0 

N=N-1:FOR J=1 TON 

IF FACI,C&(J))>=FRII,CÊIJ+1 


680 
690 
695 
"00 
710 
720 


E )) THEN GOTO 740 





— e = EDGE A e er a ia 


730 X=C&(J):CE(J)=CE(J+HI):CÊ(J 
+1)=X: FL=1 

740 NEXT J 

750 IF FL=0 OR N=2 THEN RETURN 
760 GOTO 700 | 

770 REM - ROTINA DE IMPRESSAO 
780 NL=0:PRINT 

790 PRINT "FREQUENCIA DE PARES 
NO TEXTO”: PRINT 

800 FOR I=1l TO 60:IF L%(1)=0 TH 
EN 850 

805 GOSUB 690 

810 FOR J=1 TO 60 

815 X=C&(J):IF Ft(I,X)=0 THEN 
GOTO B25 

820 PRINT CHR$(1+31)+CHRS (X+31) 
FEIO 

825 NEXT J:PRINT 

830 NL=NL+1:IF NL<15 THEN GOTO 
850 

840 NL=0: INPUT 
R> ";XS 

850 NEXT I:PRINT 
860 RETURN 


680 
690 
695 
700 


"PRESSIONE <ENTE 


REM - ROTINA DE ORDENACAÃO 
LET n=60 
FOR 3=1 TO 60:LET c(5)=j5 
NEXT j:LET £L=0 

710 LET n=n-1:FOR 353y=1l TO mn 
720 TF Eli,c(lj))>=E(i,c()+1)) 
THEN GOTO /40 


730 LET x=c(jJ):LET clj)=cla+l): 
LET c(j+l)=x:fL=1 

740 NEXT 3 

7580 IF f£fL=0 OR n=2 THEN RETURN 
760 GOTO 700 

770 REM - ROTINA DE IMPRESSAO 
780 LET nL=0:PRINT 

790 PRINT "FREQUENCIA DE PARES 


NO TEXTO”: PRINT 

B00 FOR 1=1 TO 60:IF L(1)=0 THE 
N GOTO 850 

BO5 GOSUB 690 

B10 FOR jJ=1 TO 60 

B15 LET x=c(j):IF f(1,x)=0 THEN 
GOTO B25 

820 PRINT CHABS 
E o dp o E AR 
B2b NEXT 39:PRINT 
830 LET nLe=nL+1:IF 
oTO 850 

B40 LET nL=0O: INPUT 
ENTER> ";x5 

B50 NEXT i:PRINT 
860 RETURN 


1+31 +CHRS x+3l 


nL<l5 THEN 


"PRESSIONE 


Para não alterar a matriz F, a rotina 
de ordenação utiliza um conjunto €, 
que funciona como indice — para isso, 
ele é inicializado no começo da rotina 
(linha 695), de modo a conter os núme- 
ros 1, 2, 3 etc. A ordenação (do tipo bo- 
lha) coloca esses números em uma or- 
dem diferente. 

A sub-rotina de impressão examina 
cada uma das linhas da matriz F. Se o 
total L(I) da linha I for O, não se regis- 
trou a ocorrência de nenhum caractere 





com código [+31 no texto. Do contrá- 
rio, o programa chama a rotina de or- 
denação. O laço que vai da linha 810 à 
825 imprime todos os pares cuja fre- 
quência é maior que O. A variável-indice 
X, extraída de €, é usada para mostrá- 
los em ordem decrescente. | 

Se você quiser ver apenas os dois pa- 
res mais frequentes para cada caracte- 
re, modifique a linha 810 para: 


B1LO FOR J=1 TO 2 





“O MÉTODO CHINÊS 


A técnica de compressão explicada a 
seguir apresenta um alto nível de eficiên- 
cia, dependendo do texto a codificar e 
de sua extensão. Trata-se, na realidade, 
de uma generalização do algoritmo de 
codificação por pares de letras: se po- 
demos empregar códigos numéricos pa- 
ra representar os pares de caracteres 
mais frequentes em um texto, a fim de 
comprimi-lo, é possível também usar 
triades dos caracteres mais comuns. Na- 
turalmente, essa abordagem se torna- 
ria cada vez mais inviável, à medida que 
aumentássemos as dimensões da matriz 











F: de 3.600 elementos, para contagem 
de pares, para 216.000 elementos, para 
contagem de triades etc. 

E por que não montar um dicioná- 
rio com palavras completas? Cada pa- 
lavra receberia um código numérico de 
oito ou de dezesseis bits, e o texto seria 
composto por uma sequência desses có- 
digos. Para reconstituí-lo, bastaria bus- 
car no dicionário a palavra correspon- 
dente a cada número. 

Esse sistema é chamado método chi- 
nês, pois as palavras em chinês não são 
formadas a partir de um pequeno con- 
junto de fonemas ou sílabas, como nos 
idiomas ocidentais, mas de figuras úni- 
cas, OS ideogramas, que correspondem 
a códigos. 

A idéia pode ser muito boa para uma 
linguagem natural, mas não devemos 
nos esquecer de que, no computador, o 
dicionário também precisa ser armaze- 
nado. Assim, para se conseguir o efeito 
de compressão, é necessário que o resul- 
tado da soma do número de bytes obti- 
do no processo com o número de bytes 
gasto com a armazenagem do dicioná- 
ro na memória seja menor do que o nú- 
mero de bytes do texto não comprimi- 
do (original). A taxa ou eficiência de 


E E ag 
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compressão é dada pela divisão de um 
valor pelo outro. 

Para entender como funciona esse al- 
goritmo e verificar se é capaz de com- 
primir o texto-exemplo usado antes, di- 
gite e execute este programa. 


10 DIM F(200),C(200),PS(200),F5 
150) 

20 NT=0:NP=0:NA=0:L 

ET NL=0:NF=O0 

30 FOR 1I=1 TO 200 

40 F(I)=0:C(I)=I 


50 NEXT IT 

60 PRINT "ANAI.ISANDO...” 

70 BREAD LS:IF L$="*" THEN GOTO 
100 


5 NL=NL+1 

BO NT=NT+LEN(LS) 

B5 GOSUB 510 

90 NF=NF+LEN(FS (NL)) :GOTO 70 

100 PRINT "TOTAL: ";NT;"CARACTE 

RES E “;NP;"PALAVRBAS” 

110 PRINT "DICIONARIO COM ";NR; 
“CARACTERES.” 

115 PRINT "TEXTO COMPRIMIDO 
"“FNF;"CARACTERES” 

120 PRINT "“ORDENANDO..." 
130 GOSUB 690:GOSUB 780 


COM 








STOP 


250 
500 REM - ROTINA DE CONTAGEM 

510 L$=L$+" ":.I=1:L=1] 

520 C=ASC(MIDS(L$,1,1)) | 
525 IF C<>32 THEN GOTO 560 

540 I=I+1l:IF I<XLEN(LS) THEN 

GoTo 520 

550 RETURN 

560 L=I 

570 C=ASC (MIDS(L$S,1,1)) 

575 IF C=32 THEN GOTO 610 

590 I=1+1l:IF I=<LEN(LS) THEN 

GOTO 570 

600 RETURN 


10 AS=MIDSILS, LL, I-L) 

620 FOR N=1 TO NP 

630 IF XS<>PS(N) THEN GOTO 640 
635 F(N)=F(N)+1:FS(NL)=FS(NL)+ 
CHRS (N) :GOTO 520 

640 NEXT N 

650 NP=NP+1:F(NP)=1:PS(NP) 
660 NR=NR+LEN (RS) :FS (NL) =F 
+CHRS (NP) 


=X5 
5 (NL) 


6/U GOTO 520 

6GB0 REM - ROTINA DE ORDENACAO 

690 N=NP 

700 FL=0 

10 N=N-1:FOR I=1l TON 

!20 IF F(C(I)J)=>F(C(I+1)) THEN 
GOTO 7/40 

730 X=C(I):C(1I)=C(I+1) 

735 C(I+1)=X:FLs=l] 

/40 NEXT 1 141 








IF FL=0 OR N=2 THEN RETURN 
GOTO 700 

REM - ROTINA DE IMPRESSAO 
780 NX=0 

790 PRINT "FREQUENCIA DE PALAVR 
AS NO TEXTO": PRINT 

800 FOR I=1l TO NP 

820 PRINT I;PS(C(I)),F(C(I)) 


750 
760 
TrO 


830 NX=NX+1:IF NX<15 THEN GOTO 
850 

840 NX=0: INPUT "PRESSIONE <ENTE 
R> *:;X8 

850 NEXT I:PRINT 

860 RETURN 


Os usuários do TRS-80 e do TRS- 
Color devem colocar um comando 
CLEAR 3000 antes do DIM, na linha 10. 


10 DIM £(200),c(200),p5(200,15) 
55 (50) 

20 LET nt=0:LET np=0:LET nt=0:L 

ET nl=0:LET n£=0 

30 FOR 1=1 TO 200 

40 LET £(1i)=0:LET c(i)=i 

50 NEXT à 

60 PRINT "ANALISANDO..." 

fU READ LS: IF L$=*"** THEN GOTO 

100 

?8 LET nl=nl+1 

BO LET nt=nt+LEN LS 

B5 GOSUB 510 

90 LET nf=nf+LEN ES (nl) :GOTO 70 
100 PRINT "TOTAL: ";nt;"CARACTE 

RES E “;np;"PALAVRAS” 

110 PRINT "DICIONARIO COM ";nr; 
"CARACTERES." 

115 PRINT "TEXTO COMPRIMIDO COM 
“;n£f;"CARACTERES" 


120 PRINT "ORDENANDO...” 

130 GOSUB 690:GOSUB 780 

250 STOP 

500 REM - ROTINA DE CONTAGEM 
510 LET L$8=LS$+" ":LET i=1:LET L 
“1 

520 LET c=ASC LS(i TO i) 

525 IF c<>32 THEN GOTO 560 

540 LET i=i+1:IF i<LEN LS THEN 
GOTO 520 

550 RETURN 

560 LET L=i 


570 LET c=ASC LS(i TO i) 

575 IF c=32 THEN GOTO 610 

590 LET 1=1+1:IF i=<LEN LS THEN 
GOTO 570 

600 RETURN 

610 LET x5$=LS(L to I-1) 

620 FOR n=1 TO NP 

630 IF xS<>pS(n) THEN GOTO 640 
635 LET £E(n)=£f(n)+1l:LET £S(nl)= 
£5S (nl)+CHRS (n) :GOTO 520 


640 NEXT n 

650 LET np=np+1:LET £f(np)=1:LET 
PS (np) =x3 

660 LET nr=nr+LEN xS:LET fS(nl 
)=£S (nl) +CHRS (np) 


670 GOTO 520 
680 REM - ROTINA DE ORDENACAO 


690 LET n=np 

700 LET É1=0 

710 LET n=n-1:FOR i=1 TO n 

720 IF f(c(1))=>f(c(i+1)) THEN 
GOTO 740 


30 LET x=c(a):LET c(i)j=c(i+1): 
LET c(i+l)=x:LET £1=1 

740 NEXT à 

750 IF £1=0 OR n=2 THEN RETURN 
760 GOTO 700 

770 REM - ROTINA DE IMPRESSAO 
780 LET nx=0 

790 PRINT "FREQUENCIA DE PALAVR 


AS NO TEXTO": PRINT 

B0O0 FOR 1=1 TO np 

820 PRINT i;pS(c(1)),f(c(1)) 
B30 LET nx=nx+1:1IF nx<15 THEN G 
OToO B50 

B40 LET nx=0:PRINT 
ENTER> ": INPUT xS 
B50O NEXT 1:PRINT 
860 RETURN 


A parte principal do programa é a ro- 
tina de extração de palavras, que vai da 
linha 500 à 670. 

Para identificar e separar as palavras 
contidas em uma linha de texto, essa ro- 
tina procura o primeiro caractere não- 
branco (que não é um espaço) a partir 
do caractere 1 da linha L$. A posição 
inicial da palavra é armazenada na va- 
riável L (linha 560). 

Em seguida, a rotina procura o fim 
da palavra: continua a percorrer o tex- 
to até encontrar o primeiro caractere de 
espaço. Isso é feito pelas linhas 570 a 
600. Note que, para evitar que a última 
palavra de um texto se perca, a linha 510 


"PRESSIONE «< 


-da rotina sempre acrescenta um espaço 


em branco após LS. 

Achado o final da palavra, o sub- 
string compreendido entre L e I-1 (a no- 
va posição) é copiado em X$ (linha 610). 
As linhas 620 a 660 verificam então se 
a palavra X$ existe no dicionário PS, 
com NP palavras. Se não existe, a nova 
palavra é acrescentada. Antes de voltar 
para a linha 520, para buscar nova pa- 
lavra no texto, a rotina incrementa em 
F a fregiiência de ocorrência da palavra. 
A linha de saída, que contém o texto 
comprimido (armazenada em F$), rece- 
be um novo caractere, que corresponde 
ao código da palavra no dicionário. Por- 
tanto, uma palavra inteira é substituída 
por um byte. 

“* Concluindo o programa, as rotinas 
das linhas 690 e 780 colocam as palavras 
do dicionário em ordem alfabética, exi- 
bindo-as na tela em grupos de quinze, 
como mostramos a seguir: 


FREQUENCIA DAS PALAVRAS 


DE 15 
é) 10 
Ã B 
E B 








UM Õ 
DO 5 


SUA 5 


Observamos no texto-exemplo que: 
- as palavras curtas aparecem mais; 

- há um grande número de palavras com 
uma única ocorrência; 

- vírgulas e outros sinais são tratados co- 
mo parte da palavra junto à qual se en- 
contram. 

Com isso, a eficiência de compressão 
do algoritmo é muito baixa: de 1228 ca- 
racteres do texto original, conseguimos 
comprimir apenas 215 caracteres (uma 
taxa de 82,5%); porém, o dicionário 
ocupa outros 870 bytes, dando um to- 
tal de 1085. A eficiência se reduz, assim, 
a apenas 11,6%. 

O algoritmo é mais eficaz quando se 
combinam textos bem longos e uso de 
um vocabulário reduzido. 


DECODIFICAÇÃO 


Para ver como o texto comprimido 
é reconstituído, acrescente a sub-rotina 
de decodificação: 


TITS 


GOSUB 900 

REM - ROTINA DECODIFICACAO 
NX=0:FOR I=1 TO NL 

910 FOR J=1 TO LEN(FS(I)) 

920 PRINT ” "; PS(ASC(MIDS(FS(I) 
eJ,1))); 

930 NEXT J:PRINT 

940 NX=NX+1:IF NX<15 TREN GOTO 
950 

945 NX=0: INPUT 
R> C;R$ 

950 NEXT I:RETURN 


140 
B90 
900 


140 
B90 
900 


"PRESSIONE <ENTE 


GOSUB 900 
REM - ROTINA DECODIFICACAO 
LET nx=0:FOR i=l TO nL 

910 FOR 3=1 TO LEN £S(1) 

920 PRINT ” ";pS(ASC(FS(i,5 TO 
32))% 

930 NEXT 3: PRINT 
940 LET nx=nx+1l:IF 
OTO 950 

945 LET nx=0:PRINT 


nx<15 THEN G 


"PRESSIONE < 


Essa rotina funciona de modo opos- 
to ao da de codificação, mas é bem mais 
simples. Os códigos armazenados em F$ 
são recuperados pela função ASC da li- 
nha 920, e servem como índice do dicio- 
nário P$ para reconstruir o texto origi- 
nal. Os espaços entre palavras são Inse- 
ridos automaticamente. 








ROTINAS EM CÓDIGO 





DE MÁQUINA (2) 


À linha DATA é um excelente lugar 
para se colocar programas em linguagem 
de máquina embutidos em um programa 
em BASIC. Aprenda aqui os truques 
que facilitam essa tarefa no MSX. 


“4 ER a 


Com frequência, armazenamos, em 
algum lugar da memória, uma rotina em 
código de máquina, um arquivo de pa- 
drões de um desenho ou até mesmo uma 
composição musical acompanhada de 
instruções. Muitas vezes é útil incorpo- 
rar esse arquivo de rotinas a um progra- 
ma em linguagem BASIC. Se colocar- 
mos seus códigos nas linhas DATA do 
programa que os acessa, tornaremos 
bem mais fácil o manuseio do sistema, 
viabilizando a obtenção de uma listagem 
completa e evitando repetidas buscas no 
gravador ou no drive, para uma poste- 
rior junção. Com essas linhas DATA, 
precisaremos apenas acrescentar um la- 
ço que, por intermédio do comando PO- 
KE, carregue uma determinada região 
da memória com os dados nela contidos. 








INTRODUÇÃO DAS LINHAS DATA 


Para apresentar os códigos do arqui- 
vo, O mais conveniente é utilizar núme- 
ros hexadecimais, que ocupam menos 
espaço e reduzem a possibilidade de se 
cometer erros na digitação. Além disso, 
o modo como dispomos os números na 
linha pode facilitar correções ou consul- 
tas posteriores — ou seja, a quantidade 
de números por linha indica que ali se 
encontra um determinado padrão grá- 
fico ou que aqueles códigos representam 
uma pequena sub-rotina dentro da ro- 
tina principal. 

O programa a seguir irá auxiliá-lo 
nessa tarefa. Inicialmente, você irá com- 
plementá-lo com linhas DATA seguidas 
de caracteres que depois serão superpos- 
tos pelo arquivo. E importante ressal- 
tar que a quantidade de caracteres por 
linha determinará o número de código 
nela armazenados. Assim, você pode 





““moldar'”” as linhas DATA, dando-lhes 
a aparência que julgar melhor. Por 
exemplo, uma linha do tipo: 


330 DATA XKXXXKXX 


seria transformada em: 


330 DATA A3,F2,01 


Convém, portanto, que você gaste al- 
gum tempo na criação dessas linhas, se 
quiser uma listagem bem organizada. 


RODANDO O PROGRAMA | 


Após o acréscimo das linhas DATA, 
passamos à execução do programa. Em 
primeiro lugar, ele solicita o endereço 
inicial do arquivo, pedindo, em segui- 
da, seu comprimento. Depois de termos 
digitado essas informações, o computa- 
dor pergunta se as linhas DATA já fo- 
ram introduzidas. Caso isso ainda não 
tenha sido feito, o programa será inter- 
rompido. Finalmente, ele pede o núme- 
ro da primeira linha a ser preenchida. 
Se não encontrar essa linha, o compu- 
tador interromperá a execução do pro- 
grama e imprimirá uma mensagem de 
erro. O mesmo irá ocorrer se a linha in- 
dicada não contiver o comando DATA. 

É importante que todas as linhas re- 
servadas para os códigos estejam em se- 
quência na listagem — durante a execu- 
ção, uma mensagem de erro pára o pro- 
grama quando o computador encontra 
uma linha que não seja DATA. 





10 CLS 

20 INPUT"Qual o endereço do arq 

uivo ":EN: PAINT 

30 INPUT" Qual o comprimento ":€ 
O: PRINT 

40 PRINT"Você j39á introduziu as 
Jinhas DATA? S/N *:PRINT 

50 GS=INKEYS:IF G5="" THEN GOTO 
50 

60 IF GS8="N”º” OR G9="n" THEN PRI 

NT "Eu vou parar o programa par 
a você fazerisso”:STOP 

70 INPUT"Qual a primeira linha 

DATA ":LD: PRINT 

BO X=32769! 

90 IF PEEK(XK+2) +256*PEEK (X+3) =L 

D THEN 130 

100 TF PEEK(X)+256*PEEK (X+1)=0 

THEN PRINT"Não achei esta linha 
"-.STOP 











E | ROTINAS NAS LINHAS DATA 
me À ESTRUTURA DE 
| UMA LINHA 
E PEEK E POKE 





E ENTENDA COMO FUNCIONA 





110 X=PEEK (X) +256*PEEK (X+1) 

120 GoTo 90 

130 IF PEEK(X+4)<>132 THEN PRIN 

T"Esta não é uma linha DATA” :PR 
INT:GOTO 70 

140 X=X+3 

150 FOR 1=0 TO CO-1 

160 X=XK+3 

170 IF PEEK(X)=0 THEN X=X+5:GOS 

UB 310 

180 IF PEEK(X+1)=0 THEN POKE X, 
32:X=X+6: GOSUB 310 

190 LET AS=HEXS (PEEK (E+1)) 

200 IF LEN(AS)=1 THEN AS="D"+AS 
210 POKE X,ASC(MIDS (AS,1,1)) 
220 POKE X+1L,ASC(MIDS(AS,2,1)) 
230 IF PEEK(X+2)=0 THEN X=X-1:0 

OTO 270 

240 IF PEEK(X+3)=0 THEN POKE (X 

+2).32:GOTO 270 

250 IF PEEK(X+4)=0 THEN POKE (X 

+2),32:POKE (X+3),32:X=X+1:GoTo 
270 

260 IF I<>C0O-l1 THEN POKE(X+2),4 


4 

270 NEXT I 

280 IF PEEK(X+2)<>0 THEN POKE (X 
+2),32:X=K+1:GOTO 280 

290 LIST 

300 STOP 

310 IF PEEK(X)<>2132 THEN PRINT* 
Faltam linhas DATA”:STOP ELSE X 


LEITURA DA MEMÓRIA 


Para entender o funcionamento do 
programa, é necessário conhecer a estru- 
tura de uma linha DATA, ou seja, sa- 
ber como ela é armazenada na RAM. 

Ao ligar o computador, digite: 


10 DATA A,B,C 


Agora, para “ler” o que está escrito 
na memória, usaremos o comando 
PEEK, que mostra o conteúdo de um 
determinado endereço. Começaremos 
pelo exame do byte de número 32769, 
que contém a primeira informação da 
linha inicial de um programa em BA- 
SIC. Para isso, digite o comando direto: 
FOR 1=32769 TO 32782:PRINT PEEK 
(1):4” ";:NEXT I 

Você deve ter obtido a seguinte se- 
quência de números: 


13 128 10 0 132 32 65 44 
67 000 


66 44 





ESTRUTURA DA LINHA 





Os dois primeiros números referem-se 
ao endereço inicial da próxima linha. Esse 
endereço é armazenado na forma LH (do 
inglês Low, parte baixa, e High, parte al- 
ta). Pode ser decodificado do seguinte 
modo: 128*256+13 = 32781. O par se- 
guinte equivale ao número da linha, que 
é armazenado da mesma forma: 
0+256+10 = 10. O próximo número, 132, 
é o código da palavra DATA. 

O MSX atribui um número — ou to- 
ken (símbolo, indicação) — a cada pa- 
lavra e caractere reservados. Assim, O 
computador economiza bastante memó- 
ria; em vez de armazenar todos os ca- 
racteres da palavra, guarda apenas o seu 
token. É importante não confundir os 
tokens com os códigos ASCII, que re- 
presentam os caracteres comuns. 

O número 32, que vem a seguir, é O 
código ASCII do espaço em branco, que 
separa os dados do comando DATA. Os 
próximos cinco bytes contêm esses da- 
dos, que vêm separados por uma virgu- 
la (44). O primeiro 0, na segiiência, in- 
dica o fim de uma linha, e os dois ou- 
tros, O fim do programa. Quando todas 
as linhas tiverem sido examinadas, os 
dois bytes iniciais apontam para o pri- 
meiro destes dois zeros. 





FUNCIONAMENTO DO PROGRAMA 


Após conseguir as informações soli- 
citadas no início do programa, o com- 
putador passa às verificações. 

A linha 80 inicializa a variável prin- 
cipal, X, que contém o endereço do byte 
em estudo. Primeiro, ela assume O va- 
lor 32769, que, conforme vimos, é o en- 
dereço do byte inicial da primeira linha. 
A linha 90 verifica o terceiro e quarto 
bytes, obtendo o número da linha. Se es- 
ta for a linha procurada (a primeira li- 
nha DATA), o programa é desviado pa- 
ra a linha 130. 

A linha 100 pesquisa o primeiro e o 
segundo bytes, que contêm o endereço 
da próxima linha. Se houver um núme- 
ro O no lugar do endereço, estamos no 
fim do programa — o que significa que 
a linha não foi encontrada. O compu- 
tador imprime então uma mensagem de 
erro. Caso contrário, é necessário pes- 
quisar a próxima linha. Assim, depois 
de atribuir à variável X o valor encon- 
trado no primeiro e no segundo bytes (li- 
nha 110), o programa retorna para a li- 
nha 90. Esse laço só será interrompido 
quando a próxima linha do programa 
foi localizada ou quando chegarmos ao 
final da listagem. 





Ao encontrar a linha indicada pelo 
usuário, o microcomputador verifica se 
se trata de uma linha DATA. Para is- 
so, pesquisa seu quinto byte. Se ele não 
contiver o token correspondente à ins- 
trução DATA, será impressa uma men- 
sagem de erro. 


O LAÇO PRINCIPAL 





Feitas todas essas verificações, O pro- 
grama inicia o laço principal, controla- 
do pela variável I, que coloca os códi- 
gos de máquina no programa em BA- 
SIC. Antes, porém, a linha 140 acres- 
centa três unidades a X, para que, den- 
tro do laço, essa variável seja incremen- 
tada em mais três e alcance o endereço 
do primeiro caractere da linha que de- 
verá ser preenchida. 

Primeiro, o laço principal busca o có- 
digo na região da memória determina- 
da pelo usuário, transforma-o na nota- 
ção hexadecimal (linha 190) e o coloca 
sobre os caracteres para Os quais reser- 
vamos espaço nas linhas DATA (linhas 
210 e 220). Se esse código for inferior 
a 15, sua notação em hexadecimal terá 
apenas um caractere. Para dar uma me- 
lhor apresentação ao programa, a linha 
200 acrescentará um 0 à direita desse ca- 
ractere. 

As linhas 170 e 180 são responsáveis 
pela mudança de linha. Se o byte em 
questão contiver o valor 0, um salto se- 
rá necessário, pois esse valor indica o 
fim da linha. Incrementa-se então a va- 
riável X, de modo que ela alcance o 
endereço do próximo caractere a ser 
superposto por um código, na linha 
seguinte. Porém, se O byte posterior a 
este contiver um O, não será possível 
colocar um código na linha, por falta 
de espaço. Nesse caso, além do incre- 
mento, é preciso imprimir um espaço 
em branco sobre o caractere que se en- 
contra no endereço anterior ao O. Am- 
bas as linhas, antes do salto, utilizam 
uma sub-rotina (linha 310) para verifi- 
car se a próxima linha é realmente uma 
linha DATA. 

Convém estar atento para que nada 
seja impresso após o último código, pois 
ele deve finalizar a linha DATA. Assim, 
quando o código já foi introduzido nas 
posições X e X+1, não haverá virgula 
se O primeiro, o segundo ou o terceiro 
bytes após ele contiverem o número 0. 
Nesse caso, alguns espaços em branco 
serão colocados sobre os caracteres an- 
teriores âqueles bytes. O valor de X tam- 
bém sofrerá uma pequena mudança pa- 
ra que, na próxima volta do laço, o en- 
dereço X, incrementado em três, corres- 
ponda ao endereço de 0, e a linha 170 





se encarregue de promover o salto para 
a próxima linha DATA. 

Se o primeiro, o segundo e o terceiro 
bytes após o código não contiverem O, 
a linha 260 se encarregará de imprimir 
uma vírgula. 

Quando o programa sai do laço, a li- 
nha 280 limpa a última linha DATA, 
imprimindo espaços em branco sobre os 
caracteres que ali se encontravam. 

Finalmente, o computador exibe na 
tela a listagem completa, mostrando ao 
usuário os códigos já incorporados ao 
programa. 

Como estamos fazendo modificações 
dentro do programa, convém grava-lo 
antes da execução. Um pequeno erro de 
digitação pode provocar um POKE e 
jnutilizar o programa. 


LISTA DE TOKENS 





Com os novos conhecimentos sobre 
a armazenagem das linhas em BASIC, 
você pode fazer uma série de experiên- 
cias com o comando POKE. Tente, por 
exemplo, digitar uma linha e mudar o 
seu número com um POKE no primei- 
ro e no segundo bytes. Lembre-se de que 
o primeiro byte do BASIC é o de núme- 
ro 32769. Você pode também “olhar” 
as linhas armazenadas no BASIC recor- 
rendo a alguns comandos diretos, como 
fizemos em nosso exemplo. 

Provavelmente, será útil dispor de 
uma lista dos comandos com seus res- 
pectivos tokens. Para obtê-la, digite e 
execute este programa: 


J0 E=14962 

20 C=65 

30 PRINT CHRS$(C); 

40 A=PEEK (E) 

50 B=PEEK (E+1) 

60 AS=CHRS (A) 

70 IF A<128 THEN PRINT AS; 
110 

80 PRINT CHAS(A-128); TAB(8):B 

90 E=E+I 

100 IF PEEK(E+1)<>0 THEN PRINTC 
HRS (C) ; 

110 IF PEEK (E+1) <D0 THEN 150 
120 C=C+1:IF C=B9 THEN 1/0 

125 BS5=CHRS$(C): PRINT 

130 IF B$="J”" OR B$="Q" THEN 15 
Õ 
140 
150 


“GOTO 


PRINT BS; 

E=E+1 

160 IF E<=15649 THEN 40 

170 E=1h5654:PRINT 

180 A=PEEK (E) : B=PEEKR (E+1) 

190 IF A>127 THEN PRINT CHAS(A- 
128); 

200 IF A<128 THEN PRINT CHRS(A) 


210 PRINT TAB(8);B 
220 E=E+2: PRINT 
230 IF E<15673 THEN GOTO 180 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
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“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
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O Diário de Anne Frank 


emocionou ma es. 
Eerasóuma | 


4 t a SO 
ISTOTIA. 
Apr Frank é lembrada 
como símbolo do 
extermínio de milhões de 
judeus. Seu drama e o de sua 
família são vistos agora 
de um ângulo diferente, o 
da mulher holandesa que 
ajudou os Frank durante os 
dois anos que passaram feaR de ge 
escondidos dos nazistas num Em 
sótão de Amsterdã, e que 4 
se tornou o único do entre ME 
eles eo mundo exterior. Gm 
É com tocante simplicidade W 
que esta história triste 
— o “outro lado” do Diário 
de Anne Frank — é contada 
neste livro, poderoso 
testemunho da coragem de 
que é capaz o ser humano, 


mesmo nos momentos sombrios 
da História. — Isaac Bashevis Singer, Prêmio Nobel de Literatura de 1978 
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Magnificamente escrito por uma pessoa devotada ao ser 
humano. Seu estilo simples cativa o leitor. Um livro recomendável 
aos que se preocupam com os rumos do mundo.” 





EDITORA BEST SELLER 


